diff options
author | fvogel <fvogelnew1@free.fr> | 2019-09-07 08:53:43 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2019-09-07 08:53:43 (GMT) |
commit | 5ea46c24a2d2e32cd25e06728a7b81f3a949f5a8 (patch) | |
tree | db14b80be9411a66aa73d82023b13af1b441f5ad /tools | |
parent | 8e96394008b91839c35817bd6f4d7eb95e3b12fd (diff) | |
download | tcl-5ea46c24a2d2e32cd25e06728a7b81f3a949f5a8.zip tcl-5ea46c24a2d2e32cd25e06728a7b81f3a949f5a8.tar.gz tcl-5ea46c24a2d2e32cd25e06728a7b81f3a949f5a8.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 250feeb..65d81de 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -869,7 +869,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 } @@ -905,7 +905,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 ""] \ |