[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8887213: Make tab bar option visible in the menu bar on NS
From: |
Po Lu |
Subject: |
master 8887213: Make tab bar option visible in the menu bar on NS |
Date: |
Fri, 26 Nov 2021 00:35:23 -0500 (EST) |
branch: master
commit 8887213dcf502269fb81deda640a204a801b602c
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
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.
---
lisp/menu-bar.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 274f594..8c04e35 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1347,14 +1347,13 @@ mail status in mode line"))
(frame-parameter (menu-bar-frame-for-menubar)
'menu-bar-lines)))))
- (unless (featurep 'ns)
- (bindings--define-key menu [showhide-tab-bar]
- '(menu-item "Tab Bar" toggle-tab-bar-mode-from-frame
- :help "Turn tab bar on/off"
- :button
- (:toggle . (menu-bar-positive-p
- (frame-parameter (menu-bar-frame-for-menubar)
- 'tab-bar-lines))))))
+ (bindings--define-key menu [showhide-tab-bar]
+ '(menu-item "Tab Bar" toggle-tab-bar-mode-from-frame
+ :help "Turn tab bar on/off"
+ :button
+ (:toggle . (menu-bar-positive-p
+ (frame-parameter (menu-bar-frame-for-menubar)
+ 'tab-bar-lines)))))
(if (and (boundp 'menu-bar-showhide-tool-bar-menu)
(keymapp menu-bar-showhide-tool-bar-menu))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8887213: Make tab bar option visible in the menu bar on NS,
Po Lu <=