]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/tab-bar.el (tab-bar-menu-bar-button): New variable (bug#51648).
authorJuri Linkov <juri@linkov.net>
Sat, 29 Jan 2022 19:05:55 +0000 (21:05 +0200)
committerJuri Linkov <juri@linkov.net>
Sat, 29 Jan 2022 19:05:55 +0000 (21:05 +0200)
(tab-bar-format-menu-bar): Use it.

lisp/tab-bar.el

index d49fc2efeab4140d5eb06f25cb20ac4e40406afa..06ad8f60af97440e13123713ce28b70bfc981281 100644 (file)
@@ -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 ()