(keyboard-quit): Call kmacro-keyboard-quit.

2004-11-01 23:03:12 +00:00
parent 23ed65c0e3
commit 8a7644e9fd
1 changed files with 3 additions and 1 deletions
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1,7 +1,7 @@
 ;;; simple.el --- basic editing commands for Emacs

 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 99,
-;;               2000, 01, 02, 03, 04
+;;               2000, 01, 02, 03, 2004
 ;;        Free Software Foundation, Inc.

 ;; Maintainer: FSF
@@ -3916,6 +3916,8 @@ During execution of Lisp code, this character causes a quit directly.
 At top-level, as an editor command, this simply beeps."
  (interactive)
  (deactivate-mark)
+  (if (fboundp 'kmacro-keyboard-quit)
+      (kmacro-keyboard-quit))
  (setq defining-kbd-macro nil)
  (signal 'quit nil))