summaryrefslogtreecommitdiff
path: root/lisp/x-dnd.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2007-11-22 13:52:35 +0000
committerJuanma Barranquero <lekktu@gmail.com>2007-11-22 13:52:35 +0000
commitcc63039ece20e76162c591b44a4dcc315fc8b564 (patch)
tree0796da552d3902618162b255ab36e6678a8c4983 /lisp/x-dnd.el
parent5ba0fd437fe9d8d2b7330728d65927fd9f7c6f70 (diff)
downloademacs-cc63039ece20e76162c591b44a4dcc315fc8b564.tar.gz
(x-register-dnd-atom, x-get-atom-name, x-send-client-message):
Declare as functions.
Diffstat (limited to 'lisp/x-dnd.el')
-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.")
(defvar x-dnd-empty-state [nil nil nil nil nil nil nil])
-
+(declare-function x-register-dnd-atom "xselect.c")
(defun x-dnd-init-frame (&optional frame)
"Setup drag and drop for FRAME (i.e. create appropriate properties)."
@@ -422,6 +422,9 @@ otherwise return the frame coordinates."
(+ frame-real-top (nth 1 edges))))
(cons frame-real-left frame-real-top))))
+(declare-function x-get-atom-name "xselect.c")
+(declare-function x-send-client-message "xselect.c")
+
(defun x-dnd-handle-xdnd (event frame window message format data)
"Receive one XDND event (client message) and send the appropriate reply.
EVENT is the client message. FRAME is where the mouse is now.