summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rw-r--r--tools/tcltk-man2html-utils.tcl2
-rwxr-xr-xtools/tcltk-man2html.tcl6
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 {