Mercurial > emacs

diff lisp/repeat.el @ 111045:fd1924053d81

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/repeat.el (repeat): Use read-key to ignore mouse-down events.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 18 Oct 2010 14:38:11 -0400
parents b4971a8966f0
children 1e7d8f405703 376148b31b5e
line wrap: on
line diff
--- a/lisp/repeat.el	Mon Oct 18 13:28:20 2010 -0400
+++ b/lisp/repeat.el	Mon Oct 18 14:38:11 2010 -0400
@@ -335,7 +335,7 @@
 	(setq real-last-command 'repeat)
 	(setq repeat-undo-count 1)
 	(unwind-protect
-	    (while (let ((evt (read-event))) ;FIXME: read-key maybe?
+	    (while (let ((evt (read-key)))
                      ;; For clicks, we need to strip the meta-data to
                      ;; check the underlying event name.
                      (eq (or (car-safe evt) evt)