Skip to content

Commit dbd4edc

Browse files
committed
Fix [8e811bc1f1]: Wrong formatting of arguments in man page
1 parent c054192 commit dbd4edc

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

tools/tcltk-man2html-utils.tcl

+3-1
Original file line numberDiff line numberDiff line change
@@ -583,6 +583,7 @@ proc output-IP-list {context code rest} {
583583
backup-text 1
584584
set accept_RE 0
585585
set para {}
586+
set endpara {}
586587
while {[more-text]} {
587588
set line [next-text]
588589
if {[is-a-directive $line]} {
@@ -594,7 +595,7 @@ proc output-IP-list {context code rest} {
594595
continue
595596
}
596597
if {$manual(section) eq "ARGUMENTS"} {
597-
man-puts "$para<DT>$rest<DD>"
598+
man-puts "$para<DT>$rest<DD>$endpara"
598599
} elseif {[regexp {^\[([\da-f]+)\]$} $rest -> value]} {
599600
man-puts "$para<LI value=\"$value\">"
600601
} elseif {[regexp {^\(?([\da-f]+)\)$} $rest -> value]} {
@@ -664,6 +665,7 @@ proc output-IP-list {context code rest} {
664665
man-puts $line
665666
}
666667
set para <P>
668+
set endpara </P>
667669
}
668670
man-puts "$para$enddl"
669671
lappend manual(section-toc) $enddl

0 commit comments

Comments
 (0)