From: Juri Linkov Date: Mon, 5 Aug 2024 06:56:38 +0000 (+0300) Subject: * lisp/tab-bar.el (tab-bar-tab-group-format-default): Hide hints. X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35fdaa02ac24e363f54f40c8a4d6e0582c1efbf4;p=emacs.git * 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 . (cherry picked from commit 7a14f60b90ea640087b759466f2e2bafa490699d) --- diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 36a65acfdb6..02e7ef0d7f2 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)))