Mercurial > emacs

changeset 57853:d50014ac219f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(keyboard-quit): Call kmacro-keyboard-quit.
author Kim F. Storm <storm@cua.dk>
date Mon, 01 Nov 2004 23:03:12 +0000
parents 80d07ebd59fa
children b017a1c31a53
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Mon Nov 01 23:02:26 2004 +0000
+++ b/lisp/simple.el	Mon Nov 01 23:03:12 2004 +0000
@@ -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 @@
 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))