diff options
| author | Sean Whitton | 2021-02-05 10:06:22 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-02-05 10:06:22 +0100 |
| commit | 7016db933cd529c3cbc157b126dc17df8f2ff165 (patch) | |
| tree | 1d1d57ca7e50824db7a722cf482b56e40ae01c4a | |
| parent | f06acf752a27b0ab34eae5e2342579863ede3b2f (diff) | |
| download | emacs-7016db933cd529c3cbc157b126dc17df8f2ff165.tar.gz emacs-7016db933cd529c3cbc157b126dc17df8f2ff165.zip | |
Fix repeating complex commands
* lisp/repeat.el (repeat): Fix repeating complex commands
(bug#46290). This makes `M-: date RET C-x z' work again (like in
Emacs 21, apparently).
| -rw-r--r-- | lisp/repeat.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index d4888893484..795577c93fc 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el | |||
| @@ -239,9 +239,7 @@ recently executed command not bound to an input event\"." | |||
| 239 | (car (memq last-command-event | 239 | (car (memq last-command-event |
| 240 | (listify-key-sequence | 240 | (listify-key-sequence |
| 241 | repeat-on-final-keystroke)))))) | 241 | repeat-on-final-keystroke)))))) |
| 242 | (if (memq last-repeatable-command '(exit-minibuffer | 242 | (if (eq last-repeatable-command (caar command-history)) |
| 243 | minibuffer-complete-and-exit | ||
| 244 | self-insert-and-exit)) | ||
| 245 | (let ((repeat-command (car command-history))) | 243 | (let ((repeat-command (car command-history))) |
| 246 | (repeat-message "Repeating %S" repeat-command) | 244 | (repeat-message "Repeating %S" repeat-command) |
| 247 | (eval repeat-command)) | 245 | (eval repeat-command)) |