Instead of fiddling with html tags, simply enlarge a bit the width in the CSS stylesheet.

2 files changed, 3 insertions, 5 deletions

diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl
index 1e9e31e..6e4f1fb 100644
--- a/tools/tcltk-man2html-utils.tcl
+++ b/tools/tcltk-man2html-utils.tcl
@@ -583,7 +583,6 @@ proc output-IP-list {context code rest} {
 	backup-text 1
 	set accept_RE 0
 	set para {}
-	set endpara {}
 	while {[more-text]} {
 	    set line [next-text]
 	    if {[is-a-directive $line]} {
@@ -595,7 +594,7 @@ proc output-IP-list {context code rest} {
 			    continue
 			}
 			if {$manual(section) eq "ARGUMENTS"} {
-			    man-puts "$para<DT>$rest<DD>$endpara"
+			    man-puts "$para<DT>$rest<DD>"
 			} elseif {[regexp {^\[([\da-f]+)\]$} $rest -> value]} {
 			    man-puts "$para<LI value=\"$value\">"
 			} elseif {[regexp {^\(?([\da-f]+)\)$} $rest -> value]} {
@@ -665,7 +664,6 @@ proc output-IP-list {context code rest} {
 		man-puts $line
 	    }
 	    set para <P>
-	    set endpara </P>
 	}
 	man-puts "$para$enddl"
 	lappend manual(section-toc) $enddl
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl
index 236a49f..caececa 100755
--- a/tools/tcltk-man2html.tcl
+++ b/tools/tcltk-man2html.tcl
@@ -221,14 +221,14 @@ proc css-stylesheet {} {
 	font-size: 11px;
     }
     css-style ".keylist dt" ".arguments dt" {
-	width: 20em;
+	width: 25em;
 	float: left;
 	padding: 2px;
 	border-top: 1px solid #999999;
     }
     css-style ".keylist dt" { font-weight: bold; }
     css-style ".keylist dd" ".arguments dd" {
-	margin-left: 20em;
+	margin-left: 25em;
 	padding: 2px;
 	border-top: 1px solid #999999;
     }