summaryrefslogtreecommitdiffstats
path: root/tools/tcltk-man2html-utils.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-01-13 16:55:43 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-01-13 16:55:43 (GMT)
commit45fb9309c54f3ba69e806ef3bd4a83e9267f6ae6 (patch)
treee1504c5f53adaa8755bc854c35b942c834b1e3ae /tools/tcltk-man2html-utils.tcl
parente46193b8a6d74bc51512b2e7b4f029fcfa2da594 (diff)
downloadtcl-45fb9309c54f3ba69e806ef3bd4a83e9267f6ae6.zip
tcl-45fb9309c54f3ba69e806ef3bd4a83e9267f6ae6.tar.gz
tcl-45fb9309c54f3ba69e806ef3bd4a83e9267f6ae6.tar.bz2
Add to exclusions, remove list-syntax problem
Diffstat (limited to 'tools/tcltk-man2html-utils.tcl')
-rw-r--r--tools/tcltk-man2html-utils.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl
index e6a4227..5386ffc 100644
--- a/tools/tcltk-man2html-utils.tcl
+++ b/tools/tcltk-man2html-utils.tcl
@@ -673,7 +673,7 @@ proc cross-reference {ref} {
##
if {[info exists exclude_when_followed_by_map($manual(tail))]} {
upvar 1 tail tail
- set following_word [regexp -inline {\S+} $tail]
+ set following_word [lindex [regexp -inline {\S+} $tail] 0]
foreach {this that} $exclude_when_followed_by_map($manual(tail)) {
# only a ref if $this is not followed by $that
if {$lref eq $this && [string match $that* $following_word]} {