a bug found via random testing

svn: r18582 original commit: 1c72ed7a204567019a1e835c0c322b8f366781b9
2010-03-19 13:20:30 +00:00 · 2010-03-19 13:20:30 +00:00 · 4430b73934
commit 4430b73934
parent 3e29c91081
1 changed files with 3 additions and 1 deletions
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@ -1154,7 +1154,9 @@
    (define/override (on-enable-surrogate text)
      (send text begin-edit-sequence)
      (super on-enable-surrogate text)
-      (send (send text get-keymap) chain-to-keymap keymap #f)
+      (let ([km (send text get-keymap)])
+        (when km
+          (send km chain-to-keymap keymap #f)))
      
      ;; I don't know about these editor flag settings.
      ;; maybe they belong in drscheme?