From e8b69dc2863ee79bef680cbd3837267f2481f005 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 18 Oct 2010 14:38:11 -0400 Subject: [PATCH] * lisp/repeat.el (repeat): Use read-key to ignore mouse-down events. Fixes: debbugs:6256 --- lisp/ChangeLog | 4 ++++ lisp/ps-print.el | 2 +- lisp/repeat.el | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eb26c3923bf..2f40d3565e0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-10-18 Stefan Monnier + + * repeat.el (repeat): Use read-key (bug#6256). + 2010-10-18 Chong Yidong * emacs-lisp/unsafep.el: Don't mark functions that display diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 0efac03f7d5..69b32e5d52d 100644 --- 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. ;;;### (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 9abe15c7253..b82522ef855 100644 --- 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) -- 2.39.2