-;;; tooltip.el --- Show tooltip windows
+;;; tooltip.el --- show tooltip windows
;; Copyright (C) 1997, 1999, 2000, 2001 Free Software Foundation, Inc.
(defvar tooltip-mode)
-(defcustom tooltip-delay 1.0
+(defcustom tooltip-delay 0.7
"Seconds to wait before displaying a tooltip the first time."
:tag "Delay"
:type 'number
:group 'tooltip)
-(defcustom tooltip-hide-delay 5
+(defcustom tooltip-hide-delay 10
"Hide tooltips automatically after this many seconds."
:tag "Hide delay"
:type 'number
(defun tooltip-help-tips (event)
"Hook function to display a help tooltip.
This is installed on the hook `tooltip-hook', which is run when
-the the timer with ID `tooltip-timeout-id' fires.
+the timer with ID `tooltip-timeout-id' fires.
Value is non-nil if this function handled the tip."
(when (stringp tooltip-help-message)
(tooltip-show tooltip-help-message)