Mercurial > emacs

changeset 32932:dcf315209a36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Modify some menu item help strings. (menu-bar-help-menu): Add link to MORE.STUFF.
author Dave Love <fx@gnu.org>
date Thu, 26 Oct 2000 21:51:22 +0000
parents cbbde5af8152
children 934a00cadb3b
files lisp/menu-bar.el
diffstat 1 files changed, 14 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Thu Oct 26 21:43:55 2000 +0000
+++ b/lisp/menu-bar.el	Thu Oct 26 21:51:22 2000 +0000
@@ -163,7 +163,7 @@
 (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 @@
 			   (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 @@
 (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 @@
 (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]