diff options
| author | Damien Cassou <damien@cassou.me> | 2022-10-26 16:53:23 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-30 13:19:05 +0100 |
| commit | 0922e755d219eb411c5c1ba42140790538aa3b0d (patch) | |
| tree | fec5d03bf37b48072ecf60a1708a2347f9c6343c | |
| parent | 16686bdb868721069088600704f8375feb9c0d81 (diff) | |
| download | emacs-0922e755d219eb411c5c1ba42140790538aa3b0d.tar.gz | |
Make winner key sequences repeatable in repeat-mode
* lisp/winner.el (winner-repeat-map): New variable.
(winner-undo, winner-redo): Put 'repeat-map' property with
'winner-repeat-map'. (Bug#58799)
| -rw-r--r-- | lisp/winner.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/winner.el b/lisp/winner.el index 174b698e7b5..c8354b18bec 100644 --- a/lisp/winner.el +++ b/lisp/winner.el @@ -328,6 +328,14 @@ You may want to include buffer names such as *Help*, *Apropos*, map) "Keymap for Winner mode.") +(defvar-keymap winner-repeat-map + :doc "Keymap to repeat winner key sequences. Used in `repeat-mode'." + "<left>" #'winner-undo + "<right>" #'winner-redo) + +(put #'winner-undo 'repeat-map 'winner-repeat-map) +(put #'winner-redo 'repeat-map 'winner-repeat-map) + ;;;###autoload (define-minor-mode winner-mode |