X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/fdc9061358d3654e14bfc1419632e1d6c6c5c13e..739d627a477191703f57ca4cfbd1bf8dc25625f9:/lisp/x-dnd.el diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el index f6f3b75dc0..7e5368f322 100644 --- a/lisp/x-dnd.el +++ b/lisp/x-dnd.el @@ -1,6 +1,6 @@ ;;; x-dnd.el --- drag and drop support for X. -;; Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; Author: Jan Dj,Ad(Brv ;; Maintainer: FSF @@ -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.