[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 96533c18b7: * lisp/tab-bar.el (tab-bar-menu-bar-button): New vari
From: |
Juri Linkov |
Subject: |
master 96533c18b7: * lisp/tab-bar.el (tab-bar-menu-bar-button): New variable (bug#51648). |
Date: |
Sat, 29 Jan 2022 14:06:11 -0500 (EST) |
branch: master
commit 96533c18b7f9d75dce9e6bb534a16ed4ccf44ad1
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/tab-bar.el (tab-bar-menu-bar-button): New variable (bug#51648).
(tab-bar-format-menu-bar): Use it.
---
lisp/tab-bar.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index d49fc2efea..06ad8f60af 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -751,9 +751,13 @@ Used by `tab-bar-format-menu-bar'."
(menu-bar-keymap))
(popup-menu menu event)))
+(defvar tab-bar-menu-bar-button
+ (propertize "Menu" 'face 'tab-bar-tab-inactive)
+ "Button for the menu bar.")
+
(defun tab-bar-format-menu-bar ()
"Produce the Menu button for the tab bar that shows the menu bar."
- `((menu-bar menu-item (propertize "Menu" 'face 'tab-bar-tab-inactive)
+ `((menu-bar menu-item ,tab-bar-menu-bar-button
tab-bar-menu-bar :help "Menu Bar")))
(defun tab-bar-format-history ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 96533c18b7: * lisp/tab-bar.el (tab-bar-menu-bar-button): New variable (bug#51648).,
Juri Linkov <=