master b1f52249ea: Make the undelete-frame-mode menu item a toggle

[Po Lu]

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