]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/tab-bar.el (tab-bar-tab-group-format-default): Hide hints.
authorJuri Linkov <juri@linkov.net>
Mon, 5 Aug 2024 06:56:38 +0000 (09:56 +0300)
committerEshel Yaron <me@eshelyaron.com>
Tue, 6 Aug 2024 09:55:26 +0000 (11:55 +0200)
Don't display hints when tab-bar-show-inactive-group-tabs is customized
to t (bug#71939).  Suggested by Ship Mints <shipmints@gmail.com>.

(cherry picked from commit 7a14f60b90ea640087b759466f2e2bafa490699d)

lisp/tab-bar.el

index 36a65acfdb69f4c1dc8eca57afa0702f009953d3..02e7ef0d7f26d1e0ed48e242cacad7af68bd32de 100644 (file)
@@ -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)))