Modify some menu item help strings.

(menu-bar-help-menu): Add link to MORE.STUFF.

1 files 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]