[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6268c9b 1/2: * lisp/tab-bar.el (tab-bar--define-keys): Add check
From: |
Juri Linkov |
Subject: |
master 6268c9b 1/2: * lisp/tab-bar.el (tab-bar--define-keys): Add check for tab-bar-format-global. |
Date: |
Mon, 1 Mar 2021 14:59:20 -0500 (EST) |
branch: master
commit 6268c9ba6e2cad11837181a3e75c805b73619a0b
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/tab-bar.el (tab-bar--define-keys): Add check for
tab-bar-format-global.
---
lisp/tab-bar.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index c395591..d93ee9c 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -117,8 +117,9 @@ Possible modifier keys are `control', `meta', `shift',
`hyper', `super' and
;; Replace default value with a condition that supports displaying
;; global-mode-string in the tab bar instead of the mode line.
- (when (member '(global-mode-string ("" global-mode-string " "))
- mode-line-misc-info)
+ (when (and (memq 'tab-bar-format-global tab-bar-format)
+ (member '(global-mode-string ("" global-mode-string " "))
+ mode-line-misc-info))
(setq mode-line-misc-info
(append '(global-mode-string
("" (:eval (if (and tab-bar-mode