diff options
| author | Juri Linkov <juri@linkov.net> | 2022-01-29 21:05:55 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-01-29 21:05:55 +0200 |
| commit | 96533c18b7f9d75dce9e6bb534a16ed4ccf44ad1 (patch) | |
| tree | 079c86c5800a58b1ac8817dca443ae3755618f1e /lisp/tab-bar.el | |
| parent | e241e7719453a6b55f528c2efc51844a9d42020a (diff) | |
| download | emacs-96533c18b7f9d75dce9e6bb534a16ed4ccf44ad1.tar.gz | |
* lisp/tab-bar.el (tab-bar-menu-bar-button): New variable (bug#51648).
(tab-bar-format-menu-bar): Use it.
Diffstat (limited to 'lisp/tab-bar.el')
| -rw-r--r-- | lisp/tab-bar.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index d49fc2efeab..06ad8f60af9 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 () |