From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 21 Mar 2010 16:09:45 +0000 (-0400)
Subject: Handle non-character input events in READ-EXTENSION-KEY.
X-Git-Tag: 20100708-Gtk~83
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d6f71e425d77ad07ca299a2f88d8f5f3d8d94d77;p=mit-scheme.git

Handle non-character input events in READ-EXTENSION-KEY.
---

diff --git a/src/edwin/basic.scm b/src/edwin/basic.scm
index cd7198049..29ff11215 100644
--- a/src/edwin/basic.scm
+++ b/src/edwin/basic.scm
@@ -193,7 +193,12 @@ Turns a following A (or C-A) into a Control-Meta-A."
 (define (read-extension-key modifier)
   (if execute-extended-keys?
       (set-command-prompt-prefix!))
-  (let ((key (modifier (with-editor-interrupts-disabled keyboard-read))))
+  (let ((key
+         (modifier
+          (let ((input (with-editor-interrupts-disabled keyboard-read)))
+            (if (char? input)
+                input
+                (abort-current-command input))))))
     (if execute-extended-keys?
 	(dispatch-on-key (current-comtabs) key)
 	key)))