diff options
| -rw-r--r-- | lisp/menu-bar.el | 13 |
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." |