# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885608595 0
# Node ID ec3a35db53521f9c5674548f72366e65695d1c0a
# Parent  6bede5bff2c56615de4caf986827b316cf00c5cd
(menu-bar-file-menu): Add Recover Session menu item.
(menu-bar-help-menu): Add Getting New Versions, Copying Conditions
and (Non)Warranty menu items.

diff -r 6bede5bff2c5 -r ec3a35db5352 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Fri Jan 23 16:50:56 1998 +0000
+++ b/lisp/menu-bar.el	Sat Jan 24 02:23:15 1998 +0000
@@ -146,6 +146,8 @@
   '("Kill Current Buffer" . kill-this-buffer))
 (define-key menu-bar-files-menu [insert-file]
   '("Insert File..." . insert-file))
+(define-key menu-bar-files-menu [recover-session]
+  '("Recover Session..." . recover-session))
 (define-key menu-bar-files-menu [revert-buffer]
   '("Revert Buffer" . revert-buffer))
 (define-key menu-bar-files-menu [write-file]
@@ -154,6 +156,15 @@
 (define-key menu-bar-files-menu [dired] '("Open Directory..." . dired))
 (define-key menu-bar-files-menu [open-file] '("Open File..." . find-file))
 
+(put 'recover-session 'menu-enable
+     '(and auto-save-list-file-prefix
+	   (directory-files
+	    (file-name-directory auto-save-list-file-prefix)
+	    nil
+	    (concat "\\`"
+		    (regexp-quote (file-name-nondirectory
+				   auto-save-list-file-prefix)))
+	    t)))
 
 (defun nonincremental-search-forward (string)
   "Read a string and search for it nonincrementally."
@@ -457,6 +468,12 @@
 (define-key menu-bar-manuals-menu [emacs-news]
   '("Emacs News" . view-emacs-news))
 
+(define-key menu-bar-help-menu [describe-no-warranty]
+  '("(Non)Warranty" . describe-no-warranty))
+(define-key menu-bar-help-menu [describe-copying]
+  '("Copying Conditions" . describe-copying))
+(define-key menu-bar-help-menu [describe-distribution]
+  '("Getting New Versions" . describe-distribution))
 (define-key menu-bar-help-menu [emacs-version]
   '("Show Version" . emacs-version))
 (define-key menu-bar-help-menu [report-emacs-bug]