diff options
| author | Eli Zaretskii | 2014-06-01 18:19:14 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2014-06-01 18:19:14 +0300 |
| commit | 082c97e81f98661c209d9bb52382d261e249b16e (patch) | |
| tree | f6c5dfa82ea9b8f5cc3b41e113992341fc4acdd3 | |
| parent | bcbee9833aa3409a06b2d4bc2d021f8cc2a11612 (diff) | |
| download | emacs-082c97e81f98661c209d9bb52382d261e249b16e.tar.gz emacs-082c97e81f98661c209d9bb52382d261e249b16e.zip | |
Fix bug #17615 with C-g during macro definition.
lisp/simple.el (keyboard-quit): Force update of mode lines, to remove
the "Def" indicator, if we were defining a macro.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/simple.el | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 08990e03e7a..8e3810f907b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-06-01 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * simple.el (keyboard-quit): Force update of mode lines, to remove | ||
| 4 | the "Def" indicator, if we were defining a macro. (Bug#17615) | ||
| 5 | |||
| 1 | 2014-06-01 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2014-06-01 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | * minibuffer.el (minibuffer-force-complete-and-exit): | 8 | * minibuffer.el (minibuffer-force-complete-and-exit): |
diff --git a/lisp/simple.el b/lisp/simple.el index 7bcd6cf7e71..4cc6e56aef8 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -6598,6 +6598,10 @@ At top-level, as an editor command, this simply beeps." | |||
| 6598 | (deactivate-mark)) | 6598 | (deactivate-mark)) |
| 6599 | (if (fboundp 'kmacro-keyboard-quit) | 6599 | (if (fboundp 'kmacro-keyboard-quit) |
| 6600 | (kmacro-keyboard-quit)) | 6600 | (kmacro-keyboard-quit)) |
| 6601 | ;; Force the next redisplay cycle to remove the "Def" indicator from | ||
| 6602 | ;; all the mode lines. | ||
| 6603 | (if defining-kbd-macro | ||
| 6604 | (force-mode-line-update t)) | ||
| 6601 | (setq defining-kbd-macro nil) | 6605 | (setq defining-kbd-macro nil) |
| 6602 | (let ((debug-on-quit nil)) | 6606 | (let ((debug-on-quit nil)) |
| 6603 | (signal 'quit nil))) | 6607 | (signal 'quit nil))) |