Call ABORT-KEYBOARD-MACRO in EDITOR-FAILURE.

diff --git a/src/edwin/basic.scm b/src/edwin/basic.scm
index 8acf29112cc4daa7bd5419a2ea07d533bcec9763..858347b0d541bfad941961a2b5f3682474ebfb3e 100644 (file)
--- 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."