diff options
| author | Stefan Monnier | 2010-10-18 14:38:11 -0400 |
|---|---|---|
| committer | Stefan Monnier | 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.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\"." | |||
| 335 | (setq real-last-command 'repeat) | 335 | (setq real-last-command 'repeat) |
| 336 | (setq repeat-undo-count 1) | 336 | (setq repeat-undo-count 1) |
| 337 | (unwind-protect | 337 | (unwind-protect |
| 338 | (while (let ((evt (read-event))) ;FIXME: read-key maybe? | 338 | (while (let ((evt (read-key))) |
| 339 | ;; For clicks, we need to strip the meta-data to | 339 | ;; For clicks, we need to strip the meta-data to |
| 340 | ;; check the underlying event name. | 340 | ;; check the underlying event name. |
| 341 | (eq (or (car-safe evt) evt) | 341 | (eq (or (car-safe evt) evt) |