Mercurial > emacs
changeset 111045:fd1924053d81
* 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 | 0f9cd375624d |
| children | f0ba7e7104ca |
| files | lisp/ChangeLog lisp/ps-print.el lisp/repeat.el |
| diffstat | 3 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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 "\
--- 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)