From 7b49261b5e33b0de967c885aeee988b0221026bb Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 6 Aug 2024 09:59:48 +0300 Subject: [PATCH] * lisp/tab-bar.el (tab-bar--format-tab-group): Add 'current-group'. Use current-group symbol for current tab group item (bug#71883). --- lisp/tab-bar.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 0ac31727ef4..8164ec51498 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -1047,7 +1047,7 @@ The argument I is the tab index, and CURRENT-P is non-nil when the tab is current. Return the result as a keymap." (append `((,(intern (format "sep-%i" i)) menu-item ,(tab-bar-separator) ignore)) - `((,(intern (format "group-%i" i)) + `((,(intern (if current-p "current-group" (format "group-%i" i))) menu-item ,(if current-p (condition-case nil