>From 2f26bbad08f71cb4332cd60fa5698a8c18b4abd2 Mon Sep 17 00:00:00 2001 From: Damien Cassou Date: Wed, 26 Oct 2022 16:53:23 +0200 Subject: [PATCH] Make winner key sequences repeatable in repeat-mode * lisp/winner.el (winner-repeat-map): New variable. (winner-undo): Put 'repeat-map' property with 'winner-repeat-map'. (winner-redo): Put 'repeat-map' property with 'winner-repeat-map'. --- lisp/winner.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/winner.el b/lisp/winner.el index 174b698e7b..30b0a6ada8 100644 --- a/lisp/winner.el +++ b/lisp/winner.el @@ -328,6 +328,14 @@ winner-mode-map 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 -- 2.36.2