diff options
| -rw-r--r-- | lisp/x-dnd.el | 5 |
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. |
| 427 | EVENT is the client message. FRAME is where the mouse is now. | 430 | EVENT is the client message. FRAME is where the mouse is now. |