diff options
| author | dgp@users.sourceforge.net <dgp> | 2015-07-17 21:22:22 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2015-07-17 21:22:22 (GMT) |
| commit | dee9a9cbe77ea21d498f9c6c3885df0a93c8da50 (patch) | |
| tree | eb303b04e47fe05468dc5620171a0ee2c8453095 /tools/tcltk-man2html-utils.tcl | |
| parent | 3b5dff82b3bea4153a4034c95ebdc7af76076428 (diff) | |
| parent | 77985b9936c999f8cbcb0f87825fedb45afada9a (diff) | |
| download | tcl-dee9a9cbe77ea21d498f9c6c3885df0a93c8da50.zip tcl-dee9a9cbe77ea21d498f9c6c3885df0a93c8da50.tar.gz tcl-dee9a9cbe77ea21d498f9c6c3885df0a93c8da50.tar.bz2 | |
merge trunk
Diffstat (limited to 'tools/tcltk-man2html-utils.tcl')
| -rw-r--r-- | tools/tcltk-man2html-utils.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index d02bcb6..8fd1245 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -142,6 +142,7 @@ proc process-text {text} { {\(+-} "±" \ {\(co} "©" \ {\(em} "—" \ + {\(en} "–" \ {\(fm} "′" \ {\(mu} "×" \ {\(mi} "−" \ @@ -900,7 +901,7 @@ proc insert-cross-references {text} { append result [string range $text 0 [expr {$off-1}]] regexp -indices -start $off {http://[\w/.]+} $text range set url [string range $text {*}$range] - append result "<A HREF=\"$url\">" $url "</A>" + append result "<A HREF=\"[string trimright $url .]\">$url</A>" set text [string range $text[set text ""] \ [expr {[lindex $range 1]+1}] end] continue |