diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-28 09:23:30 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-28 09:23:30 (GMT) |
| commit | c6fdd0f07eb9197e59da6170e89c7beafd0a43e0 (patch) | |
| tree | 6986da77d87e610d1d5786b4687a77bd84925bf6 /tools/tcltk-man2html-utils.tcl | |
| parent | 2fb0507a00743b52c4e5d679639bfb6cbc8b69b6 (diff) | |
| download | tcl-c6fdd0f07eb9197e59da6170e89c7beafd0a43e0.zip tcl-c6fdd0f07eb9197e59da6170e89c7beafd0a43e0.tar.gz tcl-c6fdd0f07eb9197e59da6170e89c7beafd0a43e0.tar.bz2 | |
[01b77111e5]: Small fixes relating to this bug. In particular, the package name
mapping was not being distributed, and there were some small problems with what
the mappings were and how they were applied. Also prevented external URLs from
ending with a '.'; that's vanishingly rare...
Diffstat (limited to 'tools/tcltk-man2html-utils.tcl')
| -rw-r--r-- | tools/tcltk-man2html-utils.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index d02bcb6..bdd0079 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -900,7 +900,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 |