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