# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1287427091 14400
# Node ID fd1924053d81ca1664b4c77ea31492ab1a4e02bc
# Parent  0f9cd375624dfb97340c002a0e98125d36049700
* lisp/repeat.el (repeat): Use read-key to ignore mouse-down events.

diff -r 0f9cd375624d -r fd1924053d81 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Oct 18 13:28:20 2010 -0400
+++ b/lisp/ChangeLog	Mon Oct 18 14:38:11 2010 -0400
@@ -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 -r 0f9cd375624d -r fd1924053d81 lisp/ps-print.el
--- a/lisp/ps-print.el	Mon Oct 18 13:28:20 2010 -0400
+++ b/lisp/ps-print.el	Mon Oct 18 14:38:11 2010 -0400
@@ -6656,7 +6656,7 @@
 ;; But autoload them here to make the separation invisible.
 
 ;;;### (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 -r 0f9cd375624d -r fd1924053d81 lisp/repeat.el
--- 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)