diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-30 14:21:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-30 14:21:10 (GMT) |
| commit | 4e94eaa968fdeb7a008adf69f2df8f20909aaf1a (patch) | |
| tree | 6be485d0e0db7b07eaa0653422b106460ba7717a /tools/tcltk-man2html-utils.tcl | |
| parent | 0e196995349d7f83cede57ffdc440127f5be4719 (diff) | |
| parent | 180cec8aa973b66f2169253778a353cf956587c0 (diff) | |
| download | tcl-4e94eaa968fdeb7a008adf69f2df8f20909aaf1a.zip tcl-4e94eaa968fdeb7a008adf69f2df8f20909aaf1a.tar.gz tcl-4e94eaa968fdeb7a008adf69f2df8f20909aaf1a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tools/tcltk-man2html-utils.tcl')
| -rw-r--r-- | tools/tcltk-man2html-utils.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index 68d380a..94440d5 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -199,7 +199,7 @@ proc process-text {text} { {\(eu} "€" \ {\fP} {\fR} \ {\.} . \ - {\(bu} "•" \ + {\(bu} "•" \ {\*(qo} "ô" \ ] # This might make a few invalid mappings, but we don't use them @@ -573,7 +573,7 @@ proc output-IP-list {context code rest} { if {[regexp {^\[[\da-f]+\]|\(?[\da-f]+\)$} $rest]} { set dl "<ol class=\"[string tolower $manual(section)]\">" set enddl "</ol>" - } elseif {"•" eq $rest} { + } elseif {"•" eq $rest} { set dl "<ul class=\"[string tolower $manual(section)]\">" set enddl "</ul>" } @@ -599,7 +599,7 @@ proc output-IP-list {context code rest} { man-puts "$para<li value=\"$value\">" } elseif {[regexp {^\(?([\da-f]+)\)$} $rest -> value]} { man-puts "$para<li value=\"$value\">" - } elseif {"•" eq $rest} { + } elseif {"•" eq $rest} { man-puts "$para<li>" } else { man-puts "$para<dt>[long-toc $rest]<dd>" |