From 4d0fdd46247f3c2b457ad01c3f6604a1ebbdac60 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 23 Jan 2004 18:41:54 +0000
Subject: [PATCH] .

original commit: 0dcbe3ae5d5bf5fba2281bd01702b65e56dbedca
---
 collects/framework/private/frame.ss | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 2e19ef4f..671e47a1 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -2138,16 +2138,17 @@
                   [else editor]))))
           
           (define (toggle-search-focus)
-            (set-searching-frame this)
-            (unhide-search)
-	    (send (cond
-		    [(send find-canvas has-focus?)
-		     replace-canvas]
-		    [(send replace-canvas has-focus?)
-		     (send (get-text-to-search) get-canvas)]
-		    [else
-		     find-canvas])
-		  focus))
+            (when find-canvas
+              (set-searching-frame this)
+              (unhide-search)
+              (send (cond
+                      [(send find-canvas has-focus?)
+                       replace-canvas]
+                      [(send replace-canvas has-focus?)
+                       (send (get-text-to-search) get-canvas)]
+                      [else
+                       find-canvas])
+                    focus)))
           (define move-to-search-or-search
             (lambda ()
               (set-searching-frame this)