Fix [8e811bc1f1]: Wrong formatting of arguments in man page

sebres · Dec 28, 2022 · 143059a · 143059a
1 parent 5c610ea
commit 143059a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl
@@ -583,6 +583,7 @@ 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]} {
@@ -594,7 +595,7 @@ proc output-IP-list {context code rest} {
 			    continue
 			}
 			if {$manual(section) eq "ARGUMENTS"} {
-			    man-puts "$para<DT>$rest<DD>"
+			    man-puts "$para<DT>$rest<DD>$endpara"
 			} elseif {[regexp {^\[([\da-f]+)\]$} $rest -> value]} {
 			    man-puts "$para<LI value=\"$value\">"
 			} elseif {[regexp {^\(?([\da-f]+)\)$} $rest -> value]} {
@@ -664,6 +665,7 @@ 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