From 45fb9309c54f3ba69e806ef3bd4a83e9267f6ae6 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Wed, 13 Jan 2010 16:55:43 +0000
Subject: Add to exclusions, remove list-syntax problem

---
 tools/tcltk-man2html-utils.tcl | 2 +-
 tools/tcltk-man2html.tcl       | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

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 {
-- 
cgit v0.12