[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8b49e99: * lisp/tab-bar.el (tab-bar--define-keys): Fix global-mod
From: |
Juri Linkov |
Subject: |
master 8b49e99: * lisp/tab-bar.el (tab-bar--define-keys): Fix global-mode-string (bug#49215) |
Date: |
Fri, 25 Jun 2021 05:38:46 -0400 (EDT) |
branch: master
commit 8b49e99504f7ba30abc90a31b02e2e230e818b75
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/tab-bar.el (tab-bar--define-keys): Fix global-mode-string (bug#49215)
---
lisp/tab-bar.el | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index f3c2fb7..41d565a 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -138,15 +138,12 @@ Possible modifier keys are `control', `meta', `shift',
`hyper', `super' and
(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
- (memq 'tab-bar-format-global
- tab-bar-format))
- "" global-mode-string))
- " "))
- (remove '(global-mode-string ("" global-mode-string " "))
- mode-line-misc-info)))))
+ (setf (alist-get 'global-mode-string mode-line-misc-info)
+ '(("" (:eval (if (and tab-bar-mode
+ (memq 'tab-bar-format-global
+ tab-bar-format))
+ "" global-mode-string))
+ " ")))))
(defun tab-bar--undefine-keys ()
"Uninstall key bindings previously bound by `tab-bar--define-keys'."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8b49e99: * lisp/tab-bar.el (tab-bar--define-keys): Fix global-mode-string (bug#49215),
Juri Linkov <=