* lisp/repeat.el (repeat): Use read-key to ignore mouse-down events.

Fixes: debbugs:6256

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb26c3923bfbfcf73189c644f626a38aca6178db..2f40d3565e01d1d2fe36f0d7c5638ccea1fd8818 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-18  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * repeat.el (repeat): Use read-key (bug#6256).
+
 2010-10-18  Chong Yidong  <cyd@stupidchicken.com>
 
        * emacs-lisp/unsafep.el: Don't mark functions that display

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 0efac03f7d50089a54306b0bd536f8579586456b..69b32e5d52dfeb1fe53764a7997322b241822787 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6656,7 +6656,7 @@ If FACE is not a valid face name, use default face."
 ;; But autoload them here to make the separation invisible.
 \f
 ;;;### (autoloads (ps-mule-end-job ps-mule-begin-job ps-mule-initialize
-;;;;;;  ps-multibyte-buffer) "ps-mule" "ps-mule.el" "9187df3473401876e0df4937c311fbaf")
+;;;;;;  ps-multibyte-buffer) "ps-mule" "ps-mule.el" "18a8bc30e8755ff27de7267f4bce3d99")
 ;;; Generated autoloads from ps-mule.el
 
 (defvar ps-multibyte-buffer nil "\

diff --git a/lisp/repeat.el b/lisp/repeat.el
index 9abe15c7253ebb1f6d2e9a980a729e187441e6e6..b82522ef8553b296f1de4b5d8bf6ff4d70c368e2 100644 (file)
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -335,7 +335,7 @@ recently executed command not bound to an input event\"."
        (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)