From 96533c18b7f9d75dce9e6bb534a16ed4ccf44ad1 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 29 Jan 2022 21:05:55 +0200 Subject: [PATCH] * 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 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 () -- 2.39.5