diff options
| author | Juri Linkov <juri@linkov.net> | 2021-03-01 21:56:42 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-03-01 21:58:43 +0200 |
| commit | 6268c9ba6e2cad11837181a3e75c805b73619a0b (patch) | |
| tree | 87ed51ff336a958436258a835e4cf5b813aef44c /lisp/tab-bar.el | |
| parent | 59e1867a1f2b6938cdabac8e3f52acc9e61e9e32 (diff) | |
| download | emacs-6268c9ba6e2cad11837181a3e75c805b73619a0b.tar.gz emacs-6268c9ba6e2cad11837181a3e75c805b73619a0b.tar.bz2 emacs-6268c9ba6e2cad11837181a3e75c805b73619a0b.zip | |
* lisp/tab-bar.el (tab-bar--define-keys): Add check for tab-bar-format-global.
Diffstat (limited to 'lisp/tab-bar.el')
| -rw-r--r-- | lisp/tab-bar.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index c3955913e2d..d93ee9c93f1 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 |