diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-10-18 14:38:11 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-10-18 14:38:11 -0400 |
| commit | e8b69dc2863ee79bef680cbd3837267f2481f005 (patch) | |
| tree | 881dcaf5559f2bb3d949012041a21b9d38bb812d /lisp/repeat.el | |
| parent | a8c41b4c0d3b0a3e87f17bbcdd8ac12dae296b3a (diff) | |
| download | emacs-e8b69dc2863ee79bef680cbd3837267f2481f005.tar.gz emacs-e8b69dc2863ee79bef680cbd3837267f2481f005.tar.bz2 emacs-e8b69dc2863ee79bef680cbd3837267f2481f005.zip | |
* lisp/repeat.el (repeat): Use read-key to ignore mouse-down events.
Fixes: debbugs:6256
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |