From d20d69c098377609caaafafbe98dc118ff8a6e77 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 23 Oct 2012 12:57:31 -0400
Subject: * lisp/repeat.el (repeat): Set real-this-command.

Fixes: debbugs:12232
---
 lisp/repeat.el | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lisp/repeat.el')

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)))))
 
-- 
cgit v1.2.1