fixed bugs

original commit: e693ef7e7c60f73658663b795910649573ec2ed6
1996-09-05 21:51:58 +00:00 · 1996-09-05 21:51:58 +00:00 · 4911302840
commit 4911302840
parent b2750f2f23
1 changed files with 2 additions and 1 deletions
--- a/collects/mred/keys.ss
+++ b/collects/mred/keys.ss
@ -150,7 +150,8 @@
 		  (mred:find-string:find-string canvas ()
 						 (- (unbox x-box) 30)
 						 (- (unbox y-box) 30)
-						 (cons 'ignore-case extras))))]
+						 (cons 'ignore-case extras))
+		  #t))]
 	     [find-string-reverse
 	      (lambda (edit event)
 		(find-string edit event 'reverse))]