(tooltip-hide-delay): New user-option.

(tooltip-show): Use tooltip-hide-delay instead of the default.

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 3457760f97d976a43ae9e62405cea48850a11cf0..b0dfc443a594e36f71c0a58d5c5391a812a18ae3 100644 (file)
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -76,6 +76,13 @@ Do so after `tooltip-short-delay'."
   :group 'tooltip)
 
 
+(defcustom tooltip-hide-delay 5
+  "Hide tooltips automatically after this many seconds."
+  :tag "Hide delay"
+  :type 'number
+  :group 'tooltip)
+
+
 (defcustom tooltip-x-offset nil
   "Specify an X offset for the display of tooltips.
 The offset is relative to the position of the mouse.  It must
@@ -338,7 +345,7 @@ change the existing association.  Value is the resulting alist."
          (x-show-tip (propertize text 'face 'tooltip)
                      (selected-frame)
                      params
-                     nil
+                     tooltip-hide-delay
                      tooltip-x-offset
                      tooltip-y-offset))
       (error