]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/repeat.el (repeat): Set real-this-command.
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 23 Oct 2012 16:57:31 +0000 (12:57 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 23 Oct 2012 16:57:31 +0000 (12:57 -0400)
Fixes: debbugs:12232
lisp/ChangeLog
lisp/repeat.el

index 16c4983d3859aa7de06f94ca48de26c837de9ccd..593b2a935b7d0e0291953d33de7ef45300f9bf44 100644 (file)
@@ -1,5 +1,7 @@
 2012-10-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * repeat.el (repeat): Set real-this-command (bug#12232).
+
        * htmlfontify.el (hfy-post-html-hook):
        * filesets.el (filesets-cache-fill-content-hook):
        * arc-mode.el (archive-extract-hook):
index e38442a434b3e6cc9751d9b3677dd1c0ecc022ee..a6c803ae773b71e065117b2cecd7667fa8c684ea 100644 (file)
@@ -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)))))