From 9ca7898a6528fb5d067ca5590a66a3e8de12410f Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 10 Jun 2009 18:46:56 -0400 Subject: [PATCH] Call ABORT-KEYBOARD-MACRO in EDITOR-FAILURE. --- src/edwin/basic.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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." -- 2.25.1