diff options
| -rw-r--r-- | tools/tcltk-man2html-utils.tcl | 2 | ||||
| -rwxr-xr-x | tools/tcltk-man2html.tcl | 6 |
2 files changed, 7 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]} { diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl index 7f31fc8..3ef0d3e 100755 --- a/tools/tcltk-man2html.tcl +++ b/tools/tcltk-man2html.tcl @@ -798,10 +798,12 @@ array set exclude_refs_map { history.n {exec} canvas.n {bitmap text} checkbutton.n {image} + clipboard.n {string} menu.n {checkbutton radiobutton} options.n {bitmap image set} radiobutton.n {image} scrollbar.n {set} + selection.n {string} tkvars.n {tk} } array set exclude_when_followed_by_map { @@ -812,6 +814,10 @@ array set exclude_when_followed_by_map { lower widget raise widget } + selection.n { + clipboard selection + clipboard ; + } } try { |