diff options
author | Kim F. Storm <[email protected]> | 2004-11-01 23:03:12 +0000 |
---|---|---|
committer | Kim F. Storm <[email protected]> | 2004-11-01 23:03:12 +0000 |
commit | 8a7644e9fd9ee9006ae2ea9142a11072ebb53808 (patch) | |
tree | 13a5b3b6d76ca24500baf6e035c48aca448b08a1 | |
parent | 23ed65c0e341d36a095dedd666b927d32ea89888 (diff) |
(keyboard-quit): Call kmacro-keyboard-quit.
-rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 2665e4c763..864340e25d 100644 --- 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)) |