[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100032: * repeat.el (repeat): All
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100032: * repeat.el (repeat): Allow repeating when the last event is a click. |
Date: |
Sat, 11 Sep 2010 20:23:45 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 100032
committer: Stefan Monnier <address@hidden>
branch nick: emacs-23
timestamp: Sat 2010-09-11 20:23:45 +0200
message:
* repeat.el (repeat): Allow repeating when the last event is a click.
Suggested by Drew Adams (bug#6256).
modified:
lisp/ChangeLog
lisp/repeat.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-09-11 13:25:48 +0000
+++ b/lisp/ChangeLog 2010-09-11 18:23:45 +0000
@@ -1,3 +1,8 @@
+2010-09-11 Stefan Monnier <address@hidden>
+
+ * repeat.el (repeat): Allow repeating when the last event is a click.
+ Suggested by Drew Adams (bug#6256).
+
2010-09-11 Sascha Wilde <address@hidden>
* vc/vc-hg.el (vc-hg-state,vc-hg-working-revision):
=== modified file 'lisp/repeat.el'
--- a/lisp/repeat.el 2010-01-13 08:35:10 +0000
+++ b/lisp/repeat.el 2010-09-11 18:23:45 +0000
@@ -335,7 +335,12 @@
(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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-23 r100032: * repeat.el (repeat): Allow repeating when the last event is a click.,
Stefan Monnier <=