diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2010-09-14 16:41:53 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2010-09-14 16:41:53 +0200 |
| commit | 6664fc59a8f296117ea98b943f062c0cc0e907c1 (patch) | |
| tree | b8e0bf218492291433d00a71122bc8cd2c662ea9 /lisp/repeat.el | |
| parent | 74769e8b4c73f24e8f3356bd281a56a30000c648 (diff) | |
| parent | f3a30a50fab486dcaafb9d897797794fe4c3c4b3 (diff) | |
| download | emacs-6664fc59a8f296117ea98b943f062c0cc0e907c1.tar.gz | |
Merge changes from emacs-23 branch.
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index eddaf4f020e..86484ec68d6 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -335,7 +335,12 @@ recently executed command not bound to an input event\"." (setq real-last-command 'repeat) (setq repeat-undo-count 1) (unwind-protect - (while (eq (read-event) repeat-repeat-char) + (while (let ((evt (read-event))) ;FIXME: read-key maybe? + ;; For clicks, we need to strip the meta-data to + ;; check the underlying event name. + (eq (or (car-safe evt) evt) + (or (car-safe repeat-repeat-char) + repeat-repeat-char))) (repeat repeat-arg)) ;; Make sure `repeat-undo-count' is reset. (setq repeat-undo-count nil)) |