diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-13 16:55:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-13 16:55:43 (GMT) |
| commit | 45fb9309c54f3ba69e806ef3bd4a83e9267f6ae6 (patch) | |
| tree | e1504c5f53adaa8755bc854c35b942c834b1e3ae /tools/tcltk-man2html-utils.tcl | |
| parent | e46193b8a6d74bc51512b2e7b4f029fcfa2da594 (diff) | |
| download | tcl-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.tcl | 2 |
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]} { |