* repeat.el (repeat): Allow repeating when the last event is a click.

Suggested by Drew Adams (bug#6256).

2 files changed, 11 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ab457a95fc..ce8d515a107 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * repeat.el (repeat): Allow repeating when the last event is a click.
+        Suggested by Drew Adams (bug#6256).
+
 2010-09-11  Sascha Wilde  <wilde@sha-bang.de>
 
         * vc/vc-hg.el (vc-hg-state,vc-hg-working-revision):
diff --git a/lisp/repeat.el b/lisp/repeat.el
index edebbe24a84..9abe15c7253 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -335,7 +335,12 @@ recently executed command not bound to an input event\"."
         (setq real-last-command 'repeat)
         (setq repeat-undo-count 1)
         (unwind-protect
-            (while (eq (read-event) repeat-repeat-char)
+            (while (let ((evt (read-event))) ;FIXME: read-key maybe?
+                     ;; For clicks, we need to strip the meta-data to
+                     ;; check the underlying event name.
+                     (eq (or (car-safe evt) evt)
+                         (or (car-safe repeat-repeat-char)
+                             repeat-repeat-char)))
               (repeat repeat-arg))
           ;; Make sure `repeat-undo-count' is reset.
           (setq repeat-undo-count nil))