From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 10 Jun 2009 22:46:56 +0000 (-0400)
Subject: Call ABORT-KEYBOARD-MACRO in EDITOR-FAILURE.
X-Git-Tag: 20100708-Gtk~387
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9ca7898a6528fb5d067ca5590a66a3e8de12410f;p=mit-scheme.git

Call ABORT-KEYBOARD-MACRO in EDITOR-FAILURE.
---

diff --git a/src/edwin/basic.scm b/src/edwin/basic.scm
index 8acf29112..858347b0d 100644
--- a/src/edwin/basic.scm
+++ b/src/edwin/basic.scm
@@ -281,7 +281,8 @@ For more information type the HELP key while entering the name."
   (cond ((not (null? strings)) (apply message strings))
 	(*defining-keyboard-macro?* (clear-message)))
   (editor-beep)
-  (keyboard-macro-disable))
+  (keyboard-macro-disable)
+  (abort-keyboard-macro))
 
 (define-variable beeping-allowed?
   "False if Edwin must never beep."