From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 30 Apr 2022 15:38:34 +0000 (+0200)
Subject: Use x-show-tooltip-timeout in all the implementations
X-Git-Tag: emacs-29.0.90~1931^2~184
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=655d2319bc50ee09d4acaf9ce90809f9476d8674;p=emacs.git

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 fb79066b77f..f7c17567b18 100644
--- 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 d1a72804cfe..a0fcf70f31b 100644
--- 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 ead1549d557..0f25c1a594a 100644
--- 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 24c3c260228..8f17ee67cd0 100644
--- 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