From: Juri Linkov <juri@linkov.net>
Date: Tue, 6 Aug 2024 06:59:48 +0000 (+0300)
Subject: * lisp/tab-bar.el (tab-bar--format-tab-group): Add 'current-group'.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a138d9e4b5e939ec0ea70e99672aad961d3d0657;p=emacs.git

* lisp/tab-bar.el (tab-bar--format-tab-group): Add 'current-group'.

Use current-group symbol for current tab group item (bug#71883).

(cherry picked from commit 7b49261b5e33b0de967c885aeee988b0221026bb)
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 02e7ef0d7f2..29bf2a957e8 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