[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100032: * repeat.el (repeat): Allow repeating when the last event is a click.

[Stefan Monnier]

------------------------------------------------------------
revno: 100032
committer: Stefan Monnier <address@hidden>
branch nick: emacs-23
timestamp: Sat 2010-09-11 20:23:45 +0200
message:
  * repeat.el (repeat): Allow repeating when the last event is a click.
  Suggested by Drew Adams (bug#6256).
modified:
  lisp/ChangeLog
  lisp/repeat.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-11 13:25:48 +0000
+++ b/lisp/ChangeLog    2010-09-11 18:23:45 +0000
@@ -1,3 +1,8 @@
+2010-09-11  Stefan Monnier  <address@hidden>
+
+       * repeat.el (repeat): Allow repeating when the last event is a click.
+       Suggested by Drew Adams (bug#6256).
+
 2010-09-11  Sascha Wilde  <address@hidden>
 
        * vc/vc-hg.el (vc-hg-state,vc-hg-working-revision):

=== modified file 'lisp/repeat.el'
--- a/lisp/repeat.el    2010-01-13 08:35:10 +0000
+++ b/lisp/repeat.el    2010-09-11 18:23:45 +0000
@@ -335,7 +335,12 @@
        (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))