diff options
-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 bbfbcf8..f143388 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el | |||
@@ -120,9 +120,13 @@ Used by `tab-bar-format-menu-bar'." | |||
120 | (menu-bar-keymap)) | 120 | (menu-bar-keymap)) |
121 | (popup-menu menu event))) | 121 | (popup-menu menu event))) |
122 | 122 | ||
123 | (defcustom +tab-bar-menu-bar-icon " Emacs " | ||
124 | "The string to use for the tab-bar menu icon." | ||
125 | :type 'string) | ||
126 | |||
123 | (defun +tab-bar-format-menu-bar () | 127 | (defun +tab-bar-format-menu-bar () |
124 | "Produce the Menu button for the tab bar that shows the menu bar." | 128 | "Produce the Menu button for the tab bar that shows the menu bar." |
125 | `((menu-bar menu-item (propertize " 𝜀 " 'face '+tab-bar-extra) | 129 | `((menu-bar menu-item (propertize +tab-bar-menu-bar-icon 'face '+tab-bar-extra) |
126 | +tab-bar-menu-bar :help "Menu Bar"))) | 130 | +tab-bar-menu-bar :help "Menu Bar"))) |
127 | 131 | ||
128 | 132 | ||