diff options
author | fvogel <fvogelnew1@free.fr> | 2022-12-28 20:39:17 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-12-28 20:39:17 (GMT) |
commit | dbd4edc3d53208fc92252173a0714d8f6524d1a1 (patch) | |
tree | 310ca4aef8dc98853640cb78e38f163b10d8be74 | |
parent | c05419204a477060c97bc9991114b62ee2324c8f (diff) | |
download | tcl-dbd4edc3d53208fc92252173a0714d8f6524d1a1.zip tcl-dbd4edc3d53208fc92252173a0714d8f6524d1a1.tar.gz tcl-dbd4edc3d53208fc92252173a0714d8f6524d1a1.tar.bz2 |
Fix [8e811bc1f1]: Wrong formatting of arguments in man page
-rw-r--r-- | tools/tcltk-man2html-utils.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index 6e4f1fb..1e9e31e 100644 --- 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 |