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 | ||