diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-23 12:57:31 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-23 12:57:31 -0400 |
| commit | d20d69c098377609caaafafbe98dc118ff8a6e77 (patch) | |
| tree | 132d43f7573b19f9d2c04ad3b1a91038eab0d977 /lisp/repeat.el | |
| parent | 7108f8e38a73bafbea34eafd385aba243fe56a37 (diff) | |
| download | emacs-d20d69c098377609caaafafbe98dc118ff8a6e77.tar.gz | |
* lisp/repeat.el (repeat): Set real-this-command.
Fixes: debbugs:12232
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index e38442a434b..a6c803ae773 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -289,6 +289,10 @@ recently executed command not bound to an input event\"." (interactive) (let ((repeat-message-function fun)) (setq this-command 'repeat) + ;; Beware: messing with `real-this-command' is *bad*, but we + ;; need it so `last-repeatable-command' can be recognized + ;; later (bug#12232). + (setq real-this-command 'repeat) (call-interactively 'repeat)))))) map))))) |