Mercurial > emacs

comparison lisp/menu-bar.el @ 70972:3ffa2f66a303

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-apropos-menu): Move "Find Key in Manual" and "Find Command in Manual" to here.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 26 May 2006 20:01:16 +0000
parents c5d2bd581ee7
children 69d661c19645 46b1096093f5 a8190f7e546e
comparison
equal deleted inserted replaced
70971:190fd757114b 70972:3ffa2f66a303
1300 (define-key menu-bar-apropos-menu [apropos-commands] 1300 (define-key menu-bar-apropos-menu [apropos-commands]
1301 '(menu-item "Find Commands by Name..." apropos-command 1301 '(menu-item "Find Commands by Name..." apropos-command
1302 :help "Find commands whose names match a regexp")) 1302 :help "Find commands whose names match a regexp"))
1303 (define-key menu-bar-apropos-menu [sep1] 1303 (define-key menu-bar-apropos-menu [sep1]
1304 '("--")) 1304 '("--"))
1305 (define-key menu-bar-apropos-menu [emacs-command-node]
1306 '(menu-item "Look Up Command in User Manual..." Info-goto-emacs-command-node
1307 :help "Display manual section that describes a command"))
1308 (define-key menu-bar-apropos-menu [emacs-key-command-node]
1309 '(menu-item "Look Up Key in User Manual..." Info-goto-emacs-key-command-node
1310 :help "Display manual section that describes a key"))
1305 (define-key menu-bar-apropos-menu [elisp-index-search] 1311 (define-key menu-bar-apropos-menu [elisp-index-search]
1306 '(menu-item "Look Up Subject in ELisp Manual..." elisp-index-search 1312 '(menu-item "Look Up Subject in ELisp Manual..." elisp-index-search
1307 :help "Find description of a subject in Emacs Lisp manual")) 1313 :help "Find description of a subject in Emacs Lisp manual"))
1308 (define-key menu-bar-apropos-menu [emacs-index-search] 1314 (define-key menu-bar-apropos-menu [emacs-index-search]
1309 '(menu-item "Look Up Subject in User Manual..." emacs-index-search 1315 '(menu-item "Look Up Subject in User Manual..." emacs-index-search
1332 '(menu-item "Emacs Lisp Reference" menu-bar-read-lispref 1338 '(menu-item "Emacs Lisp Reference" menu-bar-read-lispref
1333 :help "Read the Emacs Lisp Reference manual")) 1339 :help "Read the Emacs Lisp Reference manual"))
1334 (define-key menu-bar-manuals-menu [info-elintro] 1340 (define-key menu-bar-manuals-menu [info-elintro]
1335 '(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro 1341 '(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro
1336 :help "Read the Introduction to Emacs Lisp Programming")) 1342 :help "Read the Introduction to Emacs Lisp Programming"))
1337 (define-key menu-bar-manuals-menu [sep3]
1338 '("--"))
1339 (define-key menu-bar-manuals-menu [command]
1340 '(menu-item "Find Command in Manual..." Info-goto-emacs-command-node
1341 :help "Display manual section that describes a command"))
1342 (define-key menu-bar-manuals-menu [key]
1343 '(menu-item "Find Key in Manual..." Info-goto-emacs-key-command-node
1344 :help "Display manual section that describes a key"))
1345 1343
1346 (define-key menu-bar-help-menu [eliza] 1344 (define-key menu-bar-help-menu [eliza]
1347 '(menu-item "Emacs Psychotherapist" doctor 1345 '(menu-item "Emacs Psychotherapist" doctor
1348 :help "Our doctor will help you feel better")) 1346 :help "Our doctor will help you feel better"))
1349 (define-key menu-bar-help-menu [sep4] 1347 (define-key menu-bar-help-menu [sep4]