bug#58800: Mark previous-buffer and next-buffer commands as repeatable

[Damien Cassou <damien@cassou.me>]

[-- Attachment #1: Type: text/plain, Size: 672 bytes --]

Hi Stefan,

Stefan Kangas <stefankangas@gmail.com> writes:
> Damien Cassou <damien@cassou.me> writes:
> Do we really need to add "Copyright-paperwork-exempt"?

I don't, you are right. Fixed.

>> +(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)
>
> It should be "<right>" and "<left>" here, I think.

You are right. In the meantime, I switched to Emacs 29 so I can test my
own patches. Sorry. Fixed.

-- 
Damien Cassou

"Success is the ability to go from one failure to another without
losing enthusiasm." --Winston Churchill

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Mark-previous-buffer-and-next-buffer-commands-as-rep.patch --]
[-- Type: text/x-patch, Size: 1183 bytes --]

From c09670b9baa5d5333ba2f9396915b01062b1f2a8 Mon Sep 17 00:00:00 2001
From: Damien Cassou <damien@cassou.me>
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'."
+  "<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)
-- 
2.36.2