Subject: bug#78804: [PATCH] Add repeat map for tab-bar-history

From: James Thomas <[email-masked]>
Date: Mon, 16 Jun 2025 10:43:28 +0530

Tags: patch

Tags: patch
Severity: wishlist

A replica of the winner-mode repeat map, for tab-bar-history.

In GNU Emacs 31.0.50 (build 6, x86_64-pc-linux-gnu, X toolkit, cairo
 version 1.18.0, Xaw scroll bars) of 2025-06-16 built on inspiron15
Repository revision: 9b80d2ea28826466b86e00631718a47a3f2fa2ee
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12101014
System Description: Guix System

Configured using:
 'configure --with-x-toolkit=lucid --with-native-compilation=aot
 PKG_CONFIG_PATH=/gnu/store/j6rdgb6pk0274dfl0mdqxal89kpf18zj-profile/lib/pkgconfig:/gnu/store/j6rdgb6pk0274dfl0mdqxal89kpf18zj-profile/share/pkgconfig'

From 20a249c3288b32aaae04a1526a55f441f4a7b283 Mon Sep 17 00:00:00 2001
From: James Thomas <[email-masked]>
Date: Mon, 16 Jun 2025 10:32:29 +0530
Subject: [PATCH] Add repeat map for tab-bar-history

Add repeat map similar to that of winner-mode (to which
tab-bar-history is an alternative).

* lisp/tab-bar.el (tab-bar-history-repeat-map): Make the change.
---
 lisp/tab-bar.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index bd9af41de00..d18e198ac52 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -3074,6 +3074,12 @@ tab-bar-move-repeat-map
   "m" #'tab-move
   "M" #'tab-bar-move-tab-backward)
 
+(defvar-keymap tab-bar-history-repeat-map
+  :doc "Keymap to repeat tab-bar-history key sequences.  Used in `repeat-mode'."
+  :repeat t
+  "<left>"  #'tab-bar-history-back
+  "<right>" #'tab-bar-history-forward)
+
 
 (provide 'tab-bar)
 
-- 
2.46.0