From: Damien Cassou <damien@cassou.me>
Date: Wed, 26 Oct 2022 15:12:14 +0000 (+0200)
Subject: Make previous-buffer and next-buffer repeatable
X-Git-Tag: emacs-29.0.90~1616^2~378
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1fa7974bb416b3b44234966ff14c6a4719d7997;p=emacs.git

Make previous-buffer and next-buffer repeatable

* lisp/bindings.el (buffer-navigation-repeat-map): Add new map.
* lisp/bindings.el (previous-buffer, next-buffer): Mark as
repeatable.  (Bug#58800)
---

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 2e321282742..c1ad5f7520e 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -1029,6 +1029,14 @@ if `inhibit-field-text-motion' is non-nil."
 (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'."
+  "<right>" #'next-buffer
+  "<left>"  #'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)