mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

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

Browse Source 
Use current-group symbol for current tab group item (bug#71883).
This commit is contained in:
Juri Linkov 2024-08-06 09:59:48 +03:00
parent 0822d0c1cd
commit 7b49261b5e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/tab-bar.el
View File

@ -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." when the tab is current. Return the result as a keymap."
(append (append
`((,(intern (format "sep-%i" i)) menu-item ,(tab-bar-separator) ignore)) `((,(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 menu-item
,(if current-p ,(if current-p
(condition-case nil (condition-case nil