From dba28758ab532268947bb9adbb01a22e025898db Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 11 Sep 2010 20:23:45 +0200 Subject: * repeat.el (repeat): Allow repeating when the last event is a click. Suggested by Drew Adams (bug#6256). --- lisp/repeat.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lisp/repeat.el') diff --git a/lisp/repeat.el b/lisp/repeat.el index edebbe24a84..9abe15c7253 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)) -- cgit v1.2.3