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

[Juri Linkov]

branch: master
commit 7b49261b5e33b0de967c885aeee988b0221026bb
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * 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