diff options
| author | Kim F. Storm | 2002-09-09 22:45:03 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2002-09-09 22:45:03 +0000 |
| commit | f5e130577e9c1c43a4ea58b1062bff6b43346f7a (patch) | |
| tree | 175273f8087f4c362d923928aa34b5204c578023 | |
| parent | f732f824ad4fcea0c567e5ae3b14531425f9bc8f (diff) | |
| download | emacs-f5e130577e9c1c43a4ea58b1062bff6b43346f7a.tar.gz emacs-f5e130577e9c1c43a4ea58b1062bff6b43346f7a.zip | |
(keyboard-quit): Set defining-kbd-macro to nil to
cancel defining keyboard macro when applicablex.
| -rw-r--r-- | lisp/simple.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 79c3e561af6..6d1dbe1db7c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3418,6 +3418,7 @@ During execution of Lisp code, this character causes a quit directly. | |||
| 3418 | At top-level, as an editor command, this simply beeps." | 3418 | At top-level, as an editor command, this simply beeps." |
| 3419 | (interactive) | 3419 | (interactive) |
| 3420 | (deactivate-mark) | 3420 | (deactivate-mark) |
| 3421 | (setq defining-kbd-macro nil) | ||
| 3421 | (signal 'quit nil)) | 3422 | (signal 'quit nil)) |
| 3422 | 3423 | ||
| 3423 | (define-key global-map "\C-g" 'keyboard-quit) | 3424 | (define-key global-map "\C-g" 'keyboard-quit) |