* lisp/repeat.el (repeat): Set real-this-command.

Fixes: debbugs:12232

lisp/ChangeLog

 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):

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)))))