* 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 02e7ef0d7f26d1e0ed48e242cacad7af68bd32de..29bf2a957e82719bca799f605833726c0e4dc009 100644 (file)
--- 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