From: Taylor R Campbell 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."