# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1114042058 0
# Node ID 7653208ec8d8f282eb8c816fa4c5c7ff66bbe69f
# Parent  2c98b8bb06c86adafee8929c48bbda21e617a5b0
(menu-bar-options-save, menu-bar-showhide-menu):
Add tooltip-mode.

diff -r 2c98b8bb06c8 -r 7653208ec8d8 lisp/menu-bar.el
--- 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"