[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 928ea0fbf1 2/2: ; * lisp/x-dnd.el (x-dnd-init-frame): Ignore tip
From: |
Po Lu |
Subject: |
master 928ea0fbf1 2/2: ; * lisp/x-dnd.el (x-dnd-init-frame): Ignore tip frames. |
Date: |
Sat, 23 Jul 2022 22:44:23 -0400 (EDT) |
branch: master
commit 928ea0fbf13671e17c9839791163d1da056df490
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
; * lisp/x-dnd.el (x-dnd-init-frame): Ignore tip frames.
---
lisp/x-dnd.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index ac78deaab6..a61905cfac 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)