Mercurial > emacs

comparison lisp/menu-bar.el @ 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 cc88b3f9bb72
children d01c76d7e07b 2cce56fd7361
comparison
equal deleted inserted replaced
79376:0d2b02ad7d19 79377:dc27351d0e7f
1338 :help "Read the Emacs Lisp Reference manual")) 1338 :help "Read the Emacs Lisp Reference manual"))
1339 (define-key menu-bar-manuals-menu [emac-lisp-intro] 1339 (define-key menu-bar-manuals-menu [emac-lisp-intro]
1340 '(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro 1340 '(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro
1341 :help "Read the Introduction to Emacs Lisp Programming")) 1341 :help "Read the Introduction to Emacs Lisp Programming"))
1342 1342
1343 (define-key menu-bar-help-menu [emacs-psychotherapist] 1343 (define-key menu-bar-help-menu [about-gnu-project]
1344 '(menu-item "Emacs Psychotherapist" doctor 1344 '(menu-item "About GNU" describe-project
1345 :help "Our doctor will help you feel better")) 1345 :help "About the GNU System, GNU Project, and GNU/Linux"))
1346 (define-key menu-bar-help-menu [about-emacs]
1347 '(menu-item "About Emacs" about-emacs
1348 :help "Display version number, copyright info, and basic help"))
1346 (define-key menu-bar-help-menu [sep4] 1349 (define-key menu-bar-help-menu [sep4]
1347 '("--")) 1350 '("--"))
1348 (define-key menu-bar-help-menu [describe-no-warranty] 1351 (define-key menu-bar-help-menu [describe-no-warranty]
1349 '(menu-item "(Non)Warranty" describe-no-warranty 1352 '(menu-item "(Non)Warranty" describe-no-warranty
1350 :help "Explain that Emacs has NO WARRANTY")) 1353 :help "Explain that Emacs has NO WARRANTY"))
1351 (define-key menu-bar-help-menu [describe-copying] 1354 (define-key menu-bar-help-menu [describe-copying]
1352 '(menu-item "Copying Conditions" describe-copying 1355 '(menu-item "Copying Conditions" describe-copying
1353 :help "Show the Emacs license (GPL)")) 1356 :help "Show the Emacs license (GPL)"))
1354 (define-key menu-bar-help-menu [about-gnu-project]
1355 '(menu-item "About GNU" describe-project
1356 :help "About the GNU System, GNU Project, and GNU/Linux"))
1357 (define-key menu-bar-help-menu [getting-new-versions] 1357 (define-key menu-bar-help-menu [getting-new-versions]
1358 '(menu-item "Getting New Versions" describe-distribution 1358 '(menu-item "Getting New Versions" describe-distribution
1359 :help "How to get latest versions of Emacs")) 1359 :help "How to get latest versions of Emacs"))
1360 (define-key menu-bar-help-menu [external-packages]
1361 '(menu-item "External Packages" menu-bar-help-extra-packages
1362 :help "Lisp packages distributed separately for use in Emacs"))
1363 (defun menu-bar-help-extra-packages () 1360 (defun menu-bar-help-extra-packages ()
1364 "Display help about some additional packages available for Emacs." 1361 "Display help about some additional packages available for Emacs."
1365 (interactive) 1362 (interactive)
1366 (let (enable-local-variables) 1363 (let (enable-local-variables)
1367 (view-file (expand-file-name "MORE.STUFF" 1364 (view-file (expand-file-name "MORE.STUFF"
1368 data-directory)) 1365 data-directory))
1369 (goto-address))) 1366 (goto-address)))
1370 (define-key menu-bar-help-menu [about-emacs]
1371 '(menu-item "About Emacs" display-splash-screen
1372 :help "Display version number, copyright info, and basic help"))
1373 (define-key menu-bar-help-menu [sep2] 1367 (define-key menu-bar-help-menu [sep2]
1374 '("--")) 1368 '("--"))
1369 (define-key menu-bar-help-menu [external-packages]
1370 '(menu-item "External Packages" menu-bar-help-extra-packages
1371 :help "Lisp packages distributed separately for use in Emacs"))
1375 (define-key menu-bar-help-menu [find-emacs-packages] 1372 (define-key menu-bar-help-menu [find-emacs-packages]
1376 '(menu-item "Find Emacs Packages" finder-by-keyword 1373 '(menu-item "Find Emacs Packages" finder-by-keyword
1377 :help "Find packages and features by keyword")) 1374 :help "Find packages and features by keyword"))
1378 (define-key menu-bar-help-menu [more-manuals] 1375 (define-key menu-bar-help-menu [more-manuals]
1379 (list 'menu-item "More Manuals" menu-bar-manuals-menu)) 1376 (list 'menu-item "More Manuals" menu-bar-manuals-menu))
1384 (list 'menu-item "Describe" menu-bar-describe-menu)) 1381 (list 'menu-item "Describe" menu-bar-describe-menu))
1385 (define-key menu-bar-help-menu [search-documentation] 1382 (define-key menu-bar-help-menu [search-documentation]
1386 (list 'menu-item "Search Documentation" menu-bar-search-documentation-menu)) 1383 (list 'menu-item "Search Documentation" menu-bar-search-documentation-menu))
1387 (define-key menu-bar-help-menu [sep1] 1384 (define-key menu-bar-help-menu [sep1]
1388 '("--")) 1385 '("--"))
1386 (define-key menu-bar-help-menu [emacs-psychotherapist]
1387 '(menu-item "Emacs Psychotherapist" doctor
1388 :help "Our doctor will help you feel better"))
1389 (define-key menu-bar-help-menu [send-emacs-bug-report] 1389 (define-key menu-bar-help-menu [send-emacs-bug-report]
1390 '(menu-item "Send Bug Report..." report-emacs-bug 1390 '(menu-item "Send Bug Report..." report-emacs-bug
1391 :help "Send e-mail to Emacs maintainers")) 1391 :help "Send e-mail to Emacs maintainers"))
1392 (define-key menu-bar-help-menu [emacs-known-problems] 1392 (define-key menu-bar-help-menu [emacs-known-problems]
1393 '(menu-item "Emacs Known Problems" view-emacs-problems 1393 '(menu-item "Emacs Known Problems" view-emacs-problems