andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make the undelete-frame-mode menu item a toggle

Browse source 
* 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.
This commit is contained in:
Po Lu 2022-01-20 17:55:07 +08:00
parent 3eb1b2a115
commit b1f52249ea
1 changed files with 15 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
lisp/menu-bar.el
View file

@ -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 [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 [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 [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 [undelete-last-deleted-frame]
'(menu-item "Undelete Frame" undelete-frame
:visible (and undelete-frame-mode