[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100121: * lisp/repeat.el (repeat): Use read-key to ignore mouse-down events.

[Stefan Monnier]

------------------------------------------------------------
revno: 100121
committer: Stefan Monnier <address@hidden>
branch nick: emacs-23
timestamp: Mon 2010-10-18 14:38:11 -0400
message:
  * lisp/repeat.el (repeat): Use read-key to ignore mouse-down events.
modified:
  lisp/ChangeLog
  lisp/ps-print.el
  lisp/repeat.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-18 17:28:20 +0000
+++ b/lisp/ChangeLog    2010-10-18 18:38:11 +0000
@@ -1,3 +1,7 @@
+2010-10-18  Stefan Monnier  <address@hidden>
+
+       * repeat.el (repeat): Use read-key (bug#6256).
+
 2010-10-18  Chong Yidong  <address@hidden>
 
        * emacs-lisp/unsafep.el: Don't mark functions that display

=== modified file 'lisp/ps-print.el'
--- a/lisp/ps-print.el  2010-01-13 12:34:53 +0000
+++ b/lisp/ps-print.el  2010-10-18 18:38:11 +0000
@@ -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 "\

=== modified file 'lisp/repeat.el'
--- a/lisp/repeat.el    2010-09-11 18:23:45 +0000
+++ b/lisp/repeat.el    2010-10-18 18:38:11 +0000
@@ -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)