[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7a14f60b90e: * lisp/tab-bar.el (tab-bar-tab-group-format-default)
From: |
Juri Linkov |
Subject: |
master 7a14f60b90e: * lisp/tab-bar.el (tab-bar-tab-group-format-default): Hide hints. |
Date: |
Mon, 5 Aug 2024 02:58:24 -0400 (EDT) |
branch: master
commit 7a14f60b90ea640087b759466f2e2bafa490699d
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/tab-bar.el (tab-bar-tab-group-format-default): Hide hints.
Don't display hints when tab-bar-show-inactive-group-tabs is customized
to t (bug#71939). Suggested by Ship Mints <shipmints@gmail.com>.
---
lisp/tab-bar.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index b9726459b51..0ac31727ef4 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -1017,7 +1017,10 @@ It should return the formatted tab group name to display
in the tab bar."
(defun tab-bar-tab-group-format-default (tab i &optional current-p)
(propertize
- (concat (if (and tab-bar-tab-hints (not current-p)) (format "%d " i) "")
+ (concat (if (and tab-bar-tab-hints
+ (not current-p)
+ (not tab-bar-show-inactive-group-tabs))
+ (format "%d " i) "")
(funcall tab-bar-tab-group-function tab))
'face (if current-p 'tab-bar-tab-group-current
'tab-bar-tab-group-inactive)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 7a14f60b90e: * lisp/tab-bar.el (tab-bar-tab-group-format-default): Hide hints.,
Juri Linkov <=