From: Po Lu <luangruo@yahoo.com>
Date: Thu, 12 May 2022 05:31:08 +0000 (+0800)
Subject: Improve mouse dragging
X-Git-Tag: emacs-29.0.90~1910^2~766
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5743b74d4b2e06ace233d6b170f193a72633f218;p=emacs.git

Improve mouse dragging

* lisp/mouse.el (mouse-drag-and-drop-region-display-tooltip):
Respect foreground and background parameters.
(mouse-drag-and-drop-region): Enable fine grained tracking.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 0446bc6dd87..4b5f6ed223c 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -3017,7 +3017,15 @@ highlight the original region when
   "Display TOOLTIP, a tooltip string, using `x-show-tip'.
 Call `tooltip-show-help-non-mode' instead on non-graphical displays."
   (if (display-graphic-p)
-      (x-show-tip tooltip)
+      (let ((params (copy-sequence tooltip-frame-parameters))
+	    (fg (face-attribute 'tooltip :foreground))
+	    (bg (face-attribute 'tooltip :background)))
+	(when (stringp fg)
+	  (setf (alist-get 'foreground-color params) fg)
+	  (setf (alist-get 'border-color params) fg))
+	(when (stringp bg)
+	  (setf (alist-get 'background-color params) bg))
+        (x-show-tip tooltip nil params))
     (tooltip-show-help-non-mode tooltip)))
 
 (declare-function x-hide-tip "xfns.c")
@@ -3059,6 +3067,7 @@ is copied instead of being cut."
                                                                (cdr bounds)))
                                                (region-bounds)))
          (region-noncontiguous (region-noncontiguous-p))
+         (mouse-fine-grained-tracking t)
          ;; Whether or not some text was ``cut'' from Emacs to another
          ;; program and the cleaanup code should not try modifying the
          ;; region.