Mercurial > emacs

comparison lisp/menu-bar.el @ 90729:6588c6259dfb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 545-562) - Update from CVS - Update from erc--emacs--22 - Merge from gnus--rel--5.10 - erc-iswitchb: Temporarily enable iswitchb mode * gnus--rel--5.10 (patch 172-176) - Merge from emacs--devo--0 - Update from CVS - Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice. Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
author Miles Bader <miles@gnu.org>
date Sat, 16 Dec 2006 01:29:26 +0000
parents f1d13e615070 d6ae3d33ac22
children 95d0cdf160ea
comparison
equal deleted inserted replaced
90728:a65a92d83186 90729:6588c6259dfb
922 (list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu 922 (list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu
923 :visible `(display-graphic-p))) 923 :visible `(display-graphic-p)))
924 924
925 (define-key menu-bar-showhide-menu [showhide-tooltip-mode] 925 (define-key menu-bar-showhide-menu [showhide-tooltip-mode]
926 (list 'menu-item "Tooltips" 'tooltip-mode 926 (list 'menu-item "Tooltips" 'tooltip-mode
927 :help "Toggle tooltips on/off" 927 :help "Turn tooltips on/off"
928 :visible `(and (display-graphic-p) (fboundp 'x-show-tip)) 928 :visible `(and (display-graphic-p) (fboundp 'x-show-tip))
929 :button `(:toggle . tooltip-mode))) 929 :button `(:toggle . tooltip-mode)))
930 930
931 (define-key menu-bar-showhide-menu [menu-bar-mode] 931 (define-key menu-bar-showhide-menu [menu-bar-mode]
932 '(menu-item "Menu-bar" menu-bar-mode 932 '(menu-item "Menu-bar" menu-bar-mode
933 :help "Toggle menu-bar on/off" 933 :help "Turn menu-bar on/off"
934 :button (:toggle . menu-bar-mode))) 934 :button (:toggle . menu-bar-mode)))
935 935
936 (define-key menu-bar-showhide-menu [showhide-tool-bar] 936 (define-key menu-bar-showhide-menu [showhide-tool-bar]
937 (list 'menu-item "Tool-bar" 'tool-bar-mode 937 (list 'menu-item "Tool-bar" 'tool-bar-mode
938 :help "Turn tool-bar on/off" 938 :help "Turn tool-bar on/off"
1125 :help "Invoke the Emacs built-in quick calculator")) 1125 :help "Invoke the Emacs built-in quick calculator"))
1126 (define-key menu-bar-tools-menu [calc] 1126 (define-key menu-bar-tools-menu [calc]
1127 '(menu-item "Programmable Calculator" calc 1127 '(menu-item "Programmable Calculator" calc
1128 :help "Invoke the Emacs built-in full scientific calculator")) 1128 :help "Invoke the Emacs built-in full scientific calculator"))
1129 (define-key menu-bar-tools-menu [calendar] 1129 (define-key menu-bar-tools-menu [calendar]
1130 '(menu-item "Calendar" calendar)) 1130 '(menu-item "Calendar" calendar
1131 :help "Invoke the Emacs built-in calendar"))
1131 1132
1132 (define-key menu-bar-tools-menu [separator-net] 1133 (define-key menu-bar-tools-menu [separator-net]
1133 '("--")) 1134 '("--"))
1134 1135
1135 (define-key menu-bar-tools-menu [directory-search] 1136 (define-key menu-bar-tools-menu [directory-search]
1384 '("--")) 1385 '("--"))
1385 (define-key menu-bar-help-menu [report-emacs-bug] 1386 (define-key menu-bar-help-menu [report-emacs-bug]
1386 '(menu-item "Send Bug Report..." report-emacs-bug 1387 '(menu-item "Send Bug Report..." report-emacs-bug
1387 :help "Send e-mail to Emacs maintainers")) 1388 :help "Send e-mail to Emacs maintainers"))
1388 (define-key menu-bar-help-menu [emacs-problems] 1389 (define-key menu-bar-help-menu [emacs-problems]
1389 '(menu-item "Emacs Known Problems" view-emacs-problems)) 1390 '(menu-item "Emacs Known Problems" view-emacs-problems
1391 :help "Read about known problems with Emacs"))
1390 (define-key menu-bar-help-menu [emacs-news] 1392 (define-key menu-bar-help-menu [emacs-news]
1391 '(menu-item "Emacs News" view-emacs-news 1393 '(menu-item "Emacs News" view-emacs-news
1392 :help "New features of this version")) 1394 :help "New features of this version"))
1393 (define-key menu-bar-help-menu [emacs-faq] 1395 (define-key menu-bar-help-menu [emacs-faq]
1394 '(menu-item "Emacs FAQ" view-emacs-FAQ)) 1396 '(menu-item "Emacs FAQ" view-emacs-FAQ
1397 :help "Frequently asked (and answered) questions about Emacs"))
1395 1398
1396 (defun help-with-tutorial-spec-language () 1399 (defun help-with-tutorial-spec-language ()
1397 "Use the Emacs tutorial, specifying which language you want." 1400 "Use the Emacs tutorial, specifying which language you want."
1398 (interactive) 1401 (interactive)
1399 (help-with-tutorial t)) 1402 (help-with-tutorial t))