From 886f121bc35301c5f0d167be6bc02a1b364b2bf8 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Fri, 7 Jan 2005 19:17:58 +0000
Subject: bug fix

---
 bin/adict | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'bin')

diff --git a/bin/adict b/bin/adict
index 979c6473..2d8156df 100755
--- a/bin/adict
+++ b/bin/adict
@@ -7,11 +7,13 @@ fn event {
 	# $2 - c2 type of action
 	# $3 - q0 beginning of selection
 	# $4 - q1 end of selection
-	# $5 - flag
-	# $6 - nr number of runes in $7
-	# $7 - text
-	# $8 - chorded argument
-	# $9 - origin of chorded argument
+	# $5 - eq0 beginning of expanded selection
+	# $6 - eq1 end of expanded selection
+	# $7 - flag
+	# $8 - nr number of runes in $7
+	# $9 - text
+	# $10 - chorded argument
+	# $11 - origin of chorded argument
 
 	switch($1$2){
 	case E*	# write to body or tag
@@ -28,9 +30,9 @@ fn event {
 	case Ml ML	# button 3 in tag or body
 		{
 			if(~ $dict NONE)
-				dictwin /adict/$7/ $7
+				dictwin /adict/$9/ $9
 			if not
-				dictwin /adict/$dict/$7 $dict $7
+				dictwin /adict/$dict/$9 $dict $9
 		} &
 	}
 }
-- 
cgit v1.2.3