diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-07-29 20:46:10 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-07-29 20:46:10 (GMT) |
| commit | 03ad3d0610ac27a99cd817cdf14f0506de1f59ed (patch) | |
| tree | d40ea1e5ecdcf03d60d0730eff3352eaca443b7c | |
| parent | 2d6a72ad106ef3b905a031ecb92a2734a6a2cc0d (diff) | |
| download | tcl-03ad3d0610ac27a99cd817cdf14f0506de1f59ed.zip tcl-03ad3d0610ac27a99cd817cdf14f0506de1f59ed.tar.gz tcl-03ad3d0610ac27a99cd817cdf14f0506de1f59ed.tar.bz2 | |
Small errors plague us all...
| -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 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 { |