From: Po Lu <luangruo@yahoo.com>
Date: Thu, 9 Jun 2022 08:43:29 +0000 (+0800)
Subject: Disable tooltip timeouts for drag-and-drop tooltips
X-Git-Tag: emacs-29.0.90~1910^2~133
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd8db560c25958f8e3ab9c46d6df560fce7c0a88;p=emacs.git

Disable tooltip timeouts for drag-and-drop tooltips

* lisp/mouse.el (mouse-drag-and-drop-region-display-tooltip):
Don't time out the created tooltip.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 11014fa1c5f..9cf6635a01f 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -3056,7 +3056,10 @@ Call `tooltip-show-help-non-mode' instead on non-graphical displays."
 	  (setf (alist-get 'border-color params) fg))
 	(when (stringp bg)
 	  (setf (alist-get 'background-color params) bg))
-        (x-show-tip tooltip nil params))
+        ;; Don't time out: this leads to very confusing behavior when
+        ;; Emacs isn't visible, and the only indication that the user
+        ;; is actually dragging something abruptly disappears.
+        (x-show-tip tooltip nil params most-positive-fixnum))
     (tooltip-show-help-non-mode tooltip)))
 
 (declare-function x-hide-tip "xfns.c")