Mercurial > emacs
changeset 61710:7653208ec8d8
(menu-bar-options-save, menu-bar-showhide-menu):
Add tooltip-mode.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 21 Apr 2005 00:07:38 +0000 |
| parents | 2c98b8bb06c8 |
| children | 2db375ded325 |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Thu Apr 21 00:06:54 2005 +0000 +++ b/lisp/menu-bar.el Thu Apr 21 00:07:38 2005 +0000 @@ -646,7 +646,8 @@ (setq need-save t))) ;; These are set with `customize-set-variable'. (dolist (elt '(scroll-bar-mode - debug-on-quit debug-on-error menu-bar-mode tool-bar-mode + debug-on-quit debug-on-error + tooltip-mode menu-bar-mode tool-bar-mode save-place uniquify-buffer-name-style fringe-mode fringe-indicators case-fold-search display-time-mode auto-compression-mode @@ -910,6 +911,12 @@ :visible `(display-graphic-p) :help "Select scroll-bar mode")) +(define-key menu-bar-showhide-menu [showhide-tooltip-mode] + (list 'menu-item "Tooltips" 'tooltip-mode + :help "Toggle tooltips on/off" + :visible `(and (display-graphic-p) (fboundp 'x-show-tip)) + :button `(:toggle . tooltip-mode))) + (define-key menu-bar-showhide-menu [menu-bar-mode] '(menu-item "Menu-bar" menu-bar-mode :help "Toggle menu-bar on/off"