aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2006-12-10 20:46:52 +0000
committerChong Yidong2006-12-10 20:46:52 +0000
commit5ead5d5e57def2abc96f9e79a88fae57fe1644cf (patch)
tree999f82c90cd4c1f6399f5707e7a18ad080d67eb8
parent34acfe6f62bdb50a0ce94cc3eb831fcdd15ef6c3 (diff)
downloademacs-5ead5d5e57def2abc96f9e79a88fae57fe1644cf.tar.gz
emacs-5ead5d5e57def2abc96f9e79a88fae57fe1644cf.zip
(menu-bar-showhide-menu, menu-bar-tools-menu)
(menu-bar-help-menu): Tooltip fixes. Suggested by Francis Wright.
-rw-r--r--lisp/menu-bar.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 72cc8521ee9..9ecc0053665 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -924,13 +924,13 @@ mail status in mode line"))
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]
@@ -1127,7 +1127,8 @@ mail status in mode line"))
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 '("--"))
@@ -1386,12 +1387,14 @@ key, a click, or a menu-item"))
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."