From: Po Lu <luangruo@yahoo.com>
Date: Sun, 24 Jul 2022 02:43:52 +0000 (+0800)
Subject: ; * lisp/x-dnd.el (x-dnd-init-frame): Ignore tip frames.
X-Git-Tag: emacs-29.0.90~1447^2~772
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=928ea0fbf13671e17c9839791163d1da056df490;p=emacs.git

; * lisp/x-dnd.el (x-dnd-init-frame): Ignore tip frames.
---

diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index ac78deaab60..a61905cfac0 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -194,7 +194,8 @@ any protocol specific data.")
 
 (defun x-dnd-init-frame (&optional frame)
   "Setup drag and drop for FRAME (i.e. create appropriate properties)."
-  (when (eq 'x (window-system frame))
+  (when (and (eq 'x (window-system frame))
+             (not (frame-parameter frame 'tooltip)))
     (let ((x-fast-protocol-requests (not x-dnd-debug-errors)))
       (x-register-dnd-atom "DndProtocol" frame)
       (x-register-dnd-atom "_MOTIF_DRAG_AND_DROP_MESSAGE" frame)