Mercurial > emacs

changeset 79377:dc27351d0e7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-help-menu): Move "About Emacs" and "About GNU" to the end of the Help menu. Move "Emacs Psychotherapist" after "Send Bug Report...". Move "External Packages" after "Find Emacs Packages".
author Juri Linkov <juri@jurta.org>
date Sun, 11 Nov 2007 20:23:41 +0000
parents 0d2b02ad7d19
children 117a9d753a44
files lisp/menu-bar.el
diffstat 1 files changed, 12 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Sun Nov 11 20:23:23 2007 +0000
+++ b/lisp/menu-bar.el	Sun Nov 11 20:23:41 2007 +0000
@@ -1340,9 +1340,12 @@
   '(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro
 	      :help "Read the Introduction to Emacs Lisp Programming"))
 
-(define-key menu-bar-help-menu [emacs-psychotherapist]
-  '(menu-item "Emacs Psychotherapist" doctor
-	      :help "Our doctor will help you feel better"))
+(define-key menu-bar-help-menu [about-gnu-project]
+  '(menu-item "About GNU" describe-project
+	      :help "About the GNU System, GNU Project, and GNU/Linux"))
+(define-key menu-bar-help-menu [about-emacs]
+  '(menu-item "About Emacs" about-emacs
+	      :help "Display version number, copyright info, and basic help"))
 (define-key menu-bar-help-menu [sep4]
   '("--"))
 (define-key menu-bar-help-menu [describe-no-warranty]
@@ -1351,15 +1354,9 @@
 (define-key menu-bar-help-menu [describe-copying]
   '(menu-item "Copying Conditions" describe-copying
 	      :help "Show the Emacs license (GPL)"))
-(define-key menu-bar-help-menu [about-gnu-project]
-  '(menu-item "About GNU" describe-project
-	      :help "About the GNU System, GNU Project, and GNU/Linux"))
 (define-key menu-bar-help-menu [getting-new-versions]
   '(menu-item "Getting New Versions" describe-distribution
 	      :help "How to get latest versions of Emacs"))
-(define-key menu-bar-help-menu [external-packages]
-  '(menu-item "External Packages" menu-bar-help-extra-packages
-	      :help "Lisp packages distributed separately for use in Emacs"))
 (defun menu-bar-help-extra-packages ()
   "Display help about some additional packages available for Emacs."
   (interactive)
@@ -1367,11 +1364,11 @@
     (view-file (expand-file-name "MORE.STUFF"
 				 data-directory))
     (goto-address)))
-(define-key menu-bar-help-menu [about-emacs]
-  '(menu-item "About Emacs" display-splash-screen
-	      :help "Display version number, copyright info, and basic help"))
 (define-key menu-bar-help-menu [sep2]
   '("--"))
+(define-key menu-bar-help-menu [external-packages]
+  '(menu-item "External Packages" menu-bar-help-extra-packages
+	      :help "Lisp packages distributed separately for use in Emacs"))
 (define-key menu-bar-help-menu [find-emacs-packages]
   '(menu-item "Find Emacs Packages" finder-by-keyword
 	      :help "Find packages and features by keyword"))
@@ -1386,6 +1383,9 @@
   (list 'menu-item "Search Documentation" menu-bar-search-documentation-menu))
 (define-key menu-bar-help-menu [sep1]
   '("--"))
+(define-key menu-bar-help-menu [emacs-psychotherapist]
+  '(menu-item "Emacs Psychotherapist" doctor
+	      :help "Our doctor will help you feel better"))
 (define-key menu-bar-help-menu [send-emacs-bug-report]
   '(menu-item "Send Bug Report..." report-emacs-bug
 	      :help "Send e-mail to Emacs maintainers"))