Commit dba28758 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* repeat.el (repeat): Allow repeating when the last event is a click.

Suggested by Drew Adams (bug#6256).
parent 681b88dd
2010-09-11 Stefan Monnier <monnier@iro.umontreal.ca>
* repeat.el (repeat): Allow repeating when the last event is a click.
Suggested by Drew Adams (bug#6256).
2010-09-11 Sascha Wilde <wilde@sha-bang.de> 2010-09-11 Sascha Wilde <wilde@sha-bang.de>
* vc/vc-hg.el (vc-hg-state,vc-hg-working-revision): * vc/vc-hg.el (vc-hg-state,vc-hg-working-revision):
......
...@@ -335,7 +335,12 @@ recently executed command not bound to an input event\"." ...@@ -335,7 +335,12 @@ recently executed command not bound to an input event\"."
(setq real-last-command 'repeat) (setq real-last-command 'repeat)
(setq repeat-undo-count 1) (setq repeat-undo-count 1)
(unwind-protect (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)) (repeat repeat-arg))
;; Make sure `repeat-undo-count' is reset. ;; Make sure `repeat-undo-count' is reset.
(setq repeat-undo-count nil)) (setq repeat-undo-count nil))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment