aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/x-dnd.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index f6f3b75dc07..2c36acabef4 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -117,7 +117,7 @@ any protocol specific data.")
117 117
118(defvar x-dnd-empty-state [nil nil nil nil nil nil nil]) 118(defvar x-dnd-empty-state [nil nil nil nil nil nil nil])
119 119
120 120(declare-function x-register-dnd-atom "xselect.c")
121 121
122(defun x-dnd-init-frame (&optional frame) 122(defun x-dnd-init-frame (&optional frame)
123 "Setup drag and drop for FRAME (i.e. create appropriate properties)." 123 "Setup drag and drop for FRAME (i.e. create appropriate properties)."
@@ -422,6 +422,9 @@ otherwise return the frame coordinates."
422 (+ frame-real-top (nth 1 edges)))) 422 (+ frame-real-top (nth 1 edges))))
423 (cons frame-real-left frame-real-top)))) 423 (cons frame-real-left frame-real-top))))
424 424
425(declare-function x-get-atom-name "xselect.c")
426(declare-function x-send-client-message "xselect.c")
427
425(defun x-dnd-handle-xdnd (event frame window message format data) 428(defun x-dnd-handle-xdnd (event frame window message format data)
426 "Receive one XDND event (client message) and send the appropriate reply. 429 "Receive one XDND event (client message) and send the appropriate reply.
427EVENT is the client message. FRAME is where the mouse is now. 430EVENT is the client message. FRAME is where the mouse is now.