[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b1f52249ea: Make the undelete-frame-mode menu item a toggle
From: |
Po Lu |
Subject: |
master b1f52249ea: Make the undelete-frame-mode menu item a toggle |
Date: |
Thu, 20 Jan 2022 04:56:55 -0500 (EST) |
branch: master
commit b1f52249ea90232ca61d583eb7d8456b9a2d9128
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Make the undelete-frame-mode menu item a toggle
* lisp/menu-bar.el (menu-bar-file-menu): Make the undelete frame
mode option a toggle. (bug#53382)
Also enable some options that were disabled on NS, but should no
longer be since NS now supports the tab bar.
---
lisp/menu-bar.el | 38 +++++++++++++++++---------------------
1 file changed, 17 insertions(+), 21 deletions(-)
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 109aad3898..d1ca16dbf6 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -96,27 +96,23 @@
(bindings--define-key menu [separator-print]
menu-bar-separator)
- (unless (featurep 'ns)
- (bindings--define-key menu [close-tab]
- '(menu-item "Close Tab" tab-close
- :visible (fboundp 'tab-close)
- :help "Close currently selected tab"))
- (bindings--define-key menu [make-tab]
- '(menu-item "New Tab" tab-new
- :visible (fboundp 'tab-new)
- :help "Open a new tab"))
-
- (bindings--define-key menu [separator-tab]
- menu-bar-separator))
-
- (bindings--define-key menu [enable-undelete-frame-mode]
- '(menu-item "Enable Undeleting Frames" undelete-frame-mode
- :visible (null undelete-frame-mode)
- :help "Enable undeleting frames in this session"))
- (bindings--define-key menu [disable-undelete-frame-mode]
- '(menu-item "Disable Undeleting Frames" undelete-frame-mode
- :visible undelete-frame-mode
- :help "Disable undeleting frames in this session"))
+ (bindings--define-key menu [close-tab]
+ '(menu-item "Close Tab" tab-close
+ :visible (fboundp 'tab-close)
+ :help "Close currently selected tab"))
+ (bindings--define-key menu [make-tab]
+ '(menu-item "New Tab" tab-new
+ :visible (fboundp 'tab-new)
+ :help "Open a new tab"))
+
+ (bindings--define-key menu [separator-tab]
+ menu-bar-separator)
+
+ (bindings--define-key menu [undelete-frame-mode]
+ '(menu-item "Allow Undeleting Frames" undelete-frame-mode
+ :help "Allow frames to be restored after deletion"
+ :button (:toggle . undelete-frame-mode)))
+
(bindings--define-key menu [undelete-last-deleted-frame]
'(menu-item "Undelete Frame" undelete-frame
:visible (and undelete-frame-mode
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b1f52249ea: Make the undelete-frame-mode menu item a toggle,
Po Lu <=