From: Po Lu <luangruo@yahoo.com>
Date: Thu, 20 Jan 2022 09:55:07 +0000 (+0800)
Subject: Make the undelete-frame-mode menu item a toggle
X-Git-Tag: emacs-29.0.90~2909
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1f52249ea90232ca61d583eb7d8456b9a2d9128;p=emacs.git

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.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 109aad3898f..d1ca16dbf64 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