Mercurial > emacs

comparison lisp/menu-bar.el @ 66444:3c87836dc8f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-help-menu): Say which kind of therapist.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Oct 2005 19:17:48 +0000
parents 4e56b3fda002
children a6851dd5148b
comparison
equal deleted inserted replaced
66443:e1510dea82ee 66444:3c87836dc8f6
1340 (define-key menu-bar-manuals-menu [key] 1340 (define-key menu-bar-manuals-menu [key]
1341 '(menu-item "Find Key in Manual..." Info-goto-emacs-key-command-node 1341 '(menu-item "Find Key in Manual..." Info-goto-emacs-key-command-node
1342 :help "Display manual section that describes a key")) 1342 :help "Display manual section that describes a key"))
1343 1343
1344 (define-key menu-bar-help-menu [eliza] 1344 (define-key menu-bar-help-menu [eliza]
1345 '(menu-item "Emacs Therapist" doctor 1345 '(menu-item "Emacs Psychotherapist" doctor
1346 :help "Our doctor will help you feel better")) 1346 :help "Our doctor will help you feel better"))
1347 (define-key menu-bar-help-menu [sep4] 1347 (define-key menu-bar-help-menu [sep4]
1348 '("--")) 1348 '("--"))
1349 (define-key menu-bar-help-menu [describe-no-warranty] 1349 (define-key menu-bar-help-menu [describe-no-warranty]
1350 '(menu-item "(Non)Warranty" describe-no-warranty 1350 '(menu-item "(Non)Warranty" describe-no-warranty