diff options
| author | Po Lu | 2021-11-26 13:33:39 +0800 |
|---|---|---|
| committer | Po Lu | 2021-11-26 13:33:39 +0800 |
| commit | 8887213dcf502269fb81deda640a204a801b602c (patch) | |
| tree | 6fc288cb4fe4a907638a73965c5cea5131bff569 | |
| parent | 897a101cd3b7d6b46e3b14e80e3c77373246be6a (diff) | |
| download | emacs-8887213dcf502269fb81deda640a204a801b602c.tar.gz emacs-8887213dcf502269fb81deda640a204a801b602c.zip | |
Make tab bar option visible in the menu bar on NS
* lisp/menu-bar.el (menu-bar-showhide-menu): Make
`showhide-tab-bar' visible on NS as well.
| -rw-r--r-- | lisp/menu-bar.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 274f594f69e..8c04e35a51f 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -1347,14 +1347,13 @@ mail status in mode line")) | |||
| 1347 | (frame-parameter (menu-bar-frame-for-menubar) | 1347 | (frame-parameter (menu-bar-frame-for-menubar) |
| 1348 | 'menu-bar-lines))))) | 1348 | 'menu-bar-lines))))) |
| 1349 | 1349 | ||
| 1350 | (unless (featurep 'ns) | 1350 | (bindings--define-key menu [showhide-tab-bar] |
| 1351 | (bindings--define-key menu [showhide-tab-bar] | 1351 | '(menu-item "Tab Bar" toggle-tab-bar-mode-from-frame |
| 1352 | '(menu-item "Tab Bar" toggle-tab-bar-mode-from-frame | 1352 | :help "Turn tab bar on/off" |
| 1353 | :help "Turn tab bar on/off" | 1353 | :button |
| 1354 | :button | 1354 | (:toggle . (menu-bar-positive-p |
| 1355 | (:toggle . (menu-bar-positive-p | 1355 | (frame-parameter (menu-bar-frame-for-menubar) |
| 1356 | (frame-parameter (menu-bar-frame-for-menubar) | 1356 | 'tab-bar-lines))))) |
| 1357 | 'tab-bar-lines)))))) | ||
| 1358 | 1357 | ||
| 1359 | (if (and (boundp 'menu-bar-showhide-tool-bar-menu) | 1358 | (if (and (boundp 'menu-bar-showhide-tool-bar-menu) |
| 1360 | (keymapp menu-bar-showhide-tool-bar-menu)) | 1359 | (keymapp menu-bar-showhide-tool-bar-menu)) |