From 6b5f070ac30cef7c61418a399023d2258e642930 Mon Sep 17 00:00:00 2001 From: Gregory Heytings Date: Fri, 21 Jan 2022 13:20:16 +0000 Subject: [PATCH] Fix Undelete Frame menu item (Option 3) * lisp/menu-bar.el (menu-bar-file-menu): Re-add the "Enable Frame Undeletion" menu item, restore the "Undelete Frame" menu item, and add a "Disable Frame Undeletion" menu item. --- lisp/menu-bar.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index d1ca16dbf6..a7b6dfc995 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -108,16 +108,19 @@ menu-bar-file-menu (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 [disable-undelete-frame-mode] + '(menu-item "Disable Frame Undeletion" undelete-frame-mode + :visible undelete-frame-mode + :help "Disable frame undeletion for this session")) (bindings--define-key menu [undelete-last-deleted-frame] '(menu-item "Undelete Frame" undelete-frame - :visible (and undelete-frame-mode - (car undelete-frame--deleted-frames)) + :visible undelete-frame-mode + :enable undelete-frame--deleted-frames :help "Undelete the most recently deleted frame")) + (bindings--define-key menu [enable-undelete-frame-mode] + '(menu-item "Enable Frame Undeletion" undelete-frame-mode + :visible (null undelete-frame-mode) + :help "Enable frame undeletion for this session")) ;; Don't use delete-frame as event name because that is a special ;; event. -- 2.34.1