>From c09670b9baa5d5333ba2f9396915b01062b1f2a8 Mon Sep 17 00:00:00 2001 From: Damien Cassou Date: Wed, 26 Oct 2022 17:12:14 +0200 Subject: [PATCH] Mark `previous-buffer' and `next-buffer' commands as repeatable * lisp/bindings.el (buffer-navigation-repeat-map): Add new map. * lisp/bindings.el (previous-buffer): (next-buffer): Mark as repeatable. --- lisp/bindings.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/bindings.el b/lisp/bindings.el index 2e32128274..bd0bf5afd6 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -1029,6 +1029,14 @@ ctl-x-map (define-key global-map [XF86Back] 'previous-buffer) (put 'previous-buffer :advertised-binding [?\C-x left]) +(defvar-keymap buffer-navigation-repeat-map + :doc "Keymap to repeat `next-buffer' and `previous-buffer'. Used in `repeat-mode'." + "" #'next-buffer + "" #'previous-buffer) + +(put 'next-buffer 'repeat-map 'buffer-navigation-repeat-map) +(put 'previous-buffer 'repeat-map 'buffer-navigation-repeat-map) + (let ((map minibuffer-local-map)) (define-key map "\en" 'next-history-element) (define-key map [next] 'next-history-element) -- 2.36.2