mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Suggested by Drew Adams (bug#6256).
This commit is contained in:
Stefan Monnier 2010-09-11 20:23:45 +02:00
parent 681b88dd81
commit dba28758ab
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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):

7
lisp/repeat.el
View file

@ -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))