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

This commit is contained in:
Po Lu 2022-07-24 10:43:52 +08:00
parent 235045f712
commit 928ea0fbf1

View file

@ -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)