From ae65cd84672c5a92018b35c5992b7945bc32438d Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 26 Oct 2000 21:51:22 +0000 Subject: [PATCH] Modify some menu item help strings. (menu-bar-help-menu): Add link to MORE.STUFF. --- lisp/menu-bar.el | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 71a6f44a353..06517f3e7fb 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -163,7 +163,7 @@ A large number or nil slows down menu responsiveness." (define-key menu-bar-files-menu [kill-buffer] '(menu-item "Close (current buffer)" kill-this-buffer :enable (kill-this-buffer-enabled-p) - :help "Discard contents of current buffer")) + :help "Discard current buffer")) (define-key menu-bar-files-menu [insert-file] '(menu-item "Insert File..." insert-file :enable (not (window-minibuffer-p @@ -379,7 +379,7 @@ A large number or nil slows down menu responsiveness." (not buffer-read-only) (not (mouse-region-match))) :help - "Delete the text in region between mark and current pos")) + "Delete the text in region between mark and current position")) (defvar yank-menu (cons "Select Yank" nil)) (fset 'yank-menu (cons 'keymap yank-menu)) (define-key menu-bar-edit-menu [select-paste] @@ -393,11 +393,12 @@ A large number or nil slows down menu responsiveness." (define-key menu-bar-edit-menu [copy] '(menu-item "Copy" menu-bar-kill-ring-save :enable mark-active - :help "Copy text in region between mark and current pos")) + :help "Copy text in region between mark and current position")) (define-key menu-bar-edit-menu [cut] '(menu-item "Cut" kill-region :enable (and mark-active (not buffer-read-only)) - :help "Cut (kill) text in region between mark and current pos")) + :help + "Cut (kill) text in region between mark and current position")) (define-key menu-bar-edit-menu [undo] '(menu-item "Undo" undo :enable (and (not buffer-read-only) @@ -863,6 +864,15 @@ key (or menu-item)")) (define-key menu-bar-help-menu [describe-distribution] '(menu-item "Getting New Versions" describe-distribution :help "How to get latest versions of Emacs")) +(define-key menu-bar-help-menu [more] + '(menu-item "Find Extra Packages" + (lambda () + (interactive) + (let (enable-local-variables) + (view-file (expand-file-name "MORE.STUFF" + data-directory)) + (goto-address))) + :help "Where to find some extra packages and possible updates")) (define-key menu-bar-help-menu [emacs-version] '(menu-item "Show Emacs Version" emacs-version)) (define-key menu-bar-help-menu [sep2] -- 2.39.2