[Emacs-diffs] /srv/bzr/emacs/trunk r110634: * lisp/repeat.el (repeat): Set real-this-command.

[Stefan Monnier]

------------------------------------------------------------
revno: 110634
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12232
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-10-23 12:57:31 -0400
message:
  * lisp/repeat.el (repeat): Set real-this-command.
modified:
  lisp/ChangeLog
  lisp/repeat.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-23 15:06:07 +0000
+++ b/lisp/ChangeLog    2012-10-23 16:57:31 +0000
@@ -1,5 +1,7 @@
 2012-10-23  Stefan Monnier  <address@hidden>
 
+       * 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):

=== modified file 'lisp/repeat.el'
--- a/lisp/repeat.el    2012-09-22 15:24:26 +0000
+++ b/lisp/repeat.el    2012-10-23 16:57:31 +0000
@@ -289,6 +289,10 @@
                  (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)))))