summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-07-29 20:46:10 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-07-29 20:46:10 (GMT)
commit03ad3d0610ac27a99cd817cdf14f0506de1f59ed (patch)
treed40ea1e5ecdcf03d60d0730eff3352eaca443b7c
parent2d6a72ad106ef3b905a031ecb92a2734a6a2cc0d (diff)
downloadtcl-03ad3d0610ac27a99cd817cdf14f0506de1f59ed.zip
tcl-03ad3d0610ac27a99cd817cdf14f0506de1f59ed.tar.gz
tcl-03ad3d0610ac27a99cd817cdf14f0506de1f59ed.tar.bz2
Small errors plague us all...
-rw-r--r--tools/tcltk-man2html-utils.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl
index e5a478c..938a1af 100644
--- a/tools/tcltk-man2html-utils.tcl
+++ b/tools/tcltk-man2html-utils.tcl
@@ -827,7 +827,7 @@ proc insert-cross-references {text} {
if {$offset(end-bold) < 0} {
return [append result $text]
}
- if {$invert([lindex $offsets 1]) in {tcl tk ttk}} {
+ if {[string match "c.*" $invert([lindex $offsets 1])]} {
set offsets [lreplace $offsets 1 1]
}
switch -exact -- $invert([lindex $offsets 1]) {
@@ -861,7 +861,7 @@ proc insert-cross-references {text} {
set body [string range $text {*}$range]
set text [string range $text[set text ""] \
[expr {[lindex $range 1]+1}] end]
- lappend result [cross-reference $body]
+ append result [cross-reference $body]
continue
}
Tcl1 - Tcl2 {