Commit 3a155dd6 authored by Juri Linkov's avatar Juri Linkov
Browse files

(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".
parent 490a1ad6
...@@ -24,6 +24,11 @@ ...@@ -24,6 +24,11 @@
(normal-splash-screen): Remove duplicate empty lines. (normal-splash-screen): Remove duplicate empty lines.
(normal-about-screen): Add links "Authors" and "Contributing". (normal-about-screen): Add links "Authors" and "Contributing".
* menu-bar.el (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".
2007-09-09 Michael Albinus <michael.albinus@gmx.de> 2007-09-09 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (top): Remove declarations of `tramp-gw-*' symbols, * net/tramp.el (top): Remove declarations of `tramp-gw-*' symbols,
......
...@@ -1338,9 +1338,12 @@ key, a click, or a menu-item")) ...@@ -1338,9 +1338,12 @@ key, a click, or a menu-item"))
'(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro '(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro
:help "Read the Introduction to Emacs Lisp Programming")) :help "Read the Introduction to Emacs Lisp Programming"))
(define-key menu-bar-help-menu [eliza] (define-key menu-bar-help-menu [describe-project]
'(menu-item "Emacs Psychotherapist" doctor '(menu-item "About GNU" describe-project
:help "Our doctor will help you feel better")) :help "About the GNU System, GNU Project, and GNU/Linux"))
(define-key menu-bar-help-menu [about]
'(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 [sep4]
'("--")) '("--"))
(define-key menu-bar-help-menu [describe-no-warranty] (define-key menu-bar-help-menu [describe-no-warranty]
...@@ -1349,15 +1352,9 @@ key, a click, or a menu-item")) ...@@ -1349,15 +1352,9 @@ key, a click, or a menu-item"))
(define-key menu-bar-help-menu [describe-copying] (define-key menu-bar-help-menu [describe-copying]
'(menu-item "Copying Conditions" describe-copying '(menu-item "Copying Conditions" describe-copying
:help "Show the Emacs license (GPL)")) :help "Show the Emacs license (GPL)"))
(define-key menu-bar-help-menu [describe-project]
'(menu-item "About GNU" describe-project
:help "About the GNU System, GNU Project, and GNU/Linux"))
(define-key menu-bar-help-menu [describe-distribution] (define-key menu-bar-help-menu [describe-distribution]
'(menu-item "Getting New Versions" describe-distribution '(menu-item "Getting New Versions" describe-distribution
:help "How to get latest versions of Emacs")) :help "How to get latest versions of Emacs"))
(define-key menu-bar-help-menu [more]
'(menu-item "External Packages" menu-bar-help-extra-packages
:help "Lisp packages distributed separately for use in Emacs"))
(defun menu-bar-help-extra-packages () (defun menu-bar-help-extra-packages ()
"Display help about some additional packages available for Emacs." "Display help about some additional packages available for Emacs."
(interactive) (interactive)
...@@ -1365,11 +1362,11 @@ key, a click, or a menu-item")) ...@@ -1365,11 +1362,11 @@ key, a click, or a menu-item"))
(view-file (expand-file-name "MORE.STUFF" (view-file (expand-file-name "MORE.STUFF"
data-directory)) data-directory))
(goto-address))) (goto-address)))
(define-key menu-bar-help-menu [about]
'(menu-item "About Emacs" about-emacs
:help "Display version number, copyright info, and basic help"))
(define-key menu-bar-help-menu [sep2] (define-key menu-bar-help-menu [sep2]
'("--")) '("--"))
(define-key menu-bar-help-menu [more]
'(menu-item "External Packages" menu-bar-help-extra-packages
:help "Lisp packages distributed separately for use in Emacs"))
(define-key menu-bar-help-menu [finder-by-keyword] (define-key menu-bar-help-menu [finder-by-keyword]
'(menu-item "Find Emacs Packages" finder-by-keyword '(menu-item "Find Emacs Packages" finder-by-keyword
:help "Find packages and features by keyword")) :help "Find packages and features by keyword"))
...@@ -1384,6 +1381,9 @@ key, a click, or a menu-item")) ...@@ -1384,6 +1381,9 @@ key, a click, or a menu-item"))
(list 'menu-item "Search Documentation" menu-bar-apropos-menu)) (list 'menu-item "Search Documentation" menu-bar-apropos-menu))
(define-key menu-bar-help-menu [sep1] (define-key menu-bar-help-menu [sep1]
'("--")) '("--"))
(define-key menu-bar-help-menu [eliza]
'(menu-item "Emacs Psychotherapist" doctor
:help "Our doctor will help you feel better"))
(define-key menu-bar-help-menu [report-emacs-bug] (define-key menu-bar-help-menu [report-emacs-bug]
'(menu-item "Send Bug Report..." report-emacs-bug '(menu-item "Send Bug Report..." report-emacs-bug
:help "Send e-mail to Emacs maintainers")) :help "Send e-mail to Emacs maintainers"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment