Use x-show-tooltip-timeout in all the implementations

* src/haikufns.c (Fx_show_tip): Use the timeout variable.
* src/pgtkfns.c (Fx_show_tip): Ditto.

* src/w32fns.c (Fx_show_tip): Ditto.

* src/xfns.c (Fx_show_tip): Doc fix.

diff --git a/src/haikufns.c b/src/haikufns.c
index fb79066b77fab480dfc8e4d2d3c52055b69dbc0d..f7c17567b184cbbb50b6eb800fe67ad7e1890803 100644 (file)
--- a/src/haikufns.c
+++ b/src/haikufns.c
@@ -2021,9 +2021,8 @@ DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
   f = decode_window_system_frame (frame);
 
   if (NILP (timeout))
-    timeout = make_fixnum (5);
-  else
-    CHECK_FIXNAT (timeout);
+    timeout = Vx_show_tooltip_timeout;
+  CHECK_FIXNAT (timeout);
 
   if (NILP (dx))
     dx = make_fixnum (5);

diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index d1a72804cfe445b7a5e1f243166889c0196bad73..a0fcf70f31bb0a557c6e306a412e0ece738bf101 100644 (file)
--- a/src/pgtkfns.c
+++ b/src/pgtkfns.c
@@ -3092,7 +3092,8 @@ PARMS is an optional list of frame parameters which can be used to
 change the tooltip's appearance.
 
 Automatically hide the tooltip after TIMEOUT seconds.  TIMEOUT nil
-means use the default timeout of 5 seconds.
+means use the default timeout from the `x-show-tooltip-timeout'
+variable.
 
 If the list of frame parameters PARMS contains a `left' parameter,
 display the tooltip at that x-position.  If the list of frame parameters
@@ -3138,9 +3139,8 @@ Text larger than the specified size is clipped.  */)
     return unbind_to (count, Qnil);
 
   if (NILP (timeout))
-    timeout = make_fixnum (5);
-  else
-    CHECK_FIXNAT (timeout);
+    timeout = Vx_show_tooltip_timeout;
+  CHECK_FIXNAT (timeout);
 
   if (NILP (dx))
     dx = make_fixnum (5);

diff --git a/src/w32fns.c b/src/w32fns.c
index ead1549d5573cec574dcb6cae31cf004fbe1132c..0f25c1a594a027700ec707cde4e4f3e17e745002 100644 (file)
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -7366,9 +7366,8 @@ DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
   decode_window_system_frame (frame);
 
   if (NILP (timeout))
-    timeout = make_fixnum (5);
-  else
-    CHECK_FIXNAT (timeout);
+    timeout = Vx_show_tooltip_timeout;
+  CHECK_FIXNAT (timeout);
 
   if (NILP (dx))
     dx = make_fixnum (5);

diff --git a/src/xfns.c b/src/xfns.c
index 24c3c2602286c2491ba3e3e29a372771ad2ab1cd..8f17ee67cd0b6dfd2250d6f31f2b5d9ea018f99f 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -8292,7 +8292,8 @@ PARMS is an optional list of frame parameters which can be used to
 change the tooltip's appearance.
 
 Automatically hide the tooltip after TIMEOUT seconds.  TIMEOUT nil
-means use the default timeout from the `x-show-tooltip-timeout'.
+means use the default timeout from the `x-show-tooltip-timeout'
+variable.
 
 If the list of frame parameters PARMS contains a `left' parameter,
 display the tooltip at that x-position.  If the list of frame parameters