Mercurial > emacs
changeset 20762:ec3a35db5352
(menu-bar-file-menu): Add Recover Session menu item.
(menu-bar-help-menu): Add Getting New Versions, Copying Conditions
and (Non)Warranty menu items.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 24 Jan 1998 02:23:15 +0000 |
| parents | 6bede5bff2c5 |
| children | 129b8b78151c |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 17 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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]