diff options
author | fvogel <fvogelnew1@free.fr> | 2019-09-07 08:55:08 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2019-09-07 08:55:08 (GMT) |
commit | 1f9311a1b70226567162c45c67294cea61572d07 (patch) | |
tree | df155fa92149b0a4eecbf305c193cfe0e8f36887 /tools | |
parent | 73dfa2cc44e2ad57cd2dbe38240c1f5135ebbf56 (diff) | |
parent | 5ea46c24a2d2e32cd25e06728a7b81f3a949f5a8 (diff) | |
download | tcl-1f9311a1b70226567162c45c67294cea61572d07.zip tcl-1f9311a1b70226567162c45c67294cea61572d07.tar.gz tcl-1f9311a1b70226567162c45c67294cea61572d07.tar.bz2 |
Fix bug 9d10c37aa8 (in the Tk repository): Improperly converted link in HTML man page for ttk::style
Diffstat (limited to 'tools')
-rw-r--r-- | tools/tcltk-man2html-utils.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index e851047..b38f0b5 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -876,7 +876,7 @@ proc insert-cross-references {text} { [expr {$offset(end-bold)-1}]] set text [string range $text[set text ""] \ [expr {$offset(end-bold)+4}] end] - regsub {http://[\w/.]+} $body {<A HREF="&">&</A>} body + regsub {http://[\w/.-]+} $body {<A HREF="&">&</A>} body append result <B> [cross-reference $body] </B> continue } @@ -912,7 +912,7 @@ proc insert-cross-references {text} { url { set off [lindex $offsets 0] append result [string range $text 0 [expr {$off-1}]] - regexp -indices -start $off {http://[\w/.]+} $text range + regexp -indices -start $off {http://[\w/.-]+} $text range set url [string range $text {*}$range] append result "<A HREF=\"[string trimright $url .]\">$url</A>" set text [string range $text[set text ""] \ |