Function: x-dnd-handle-native-drop

x-dnd-handle-native-drop is a byte-compiled function defined in x-dnd.el.gz.

Signature

(x-dnd-handle-native-drop POS ACTION)

Documentation

Compute the action for a drop at POS.

Return the appropriate drag-and-drop action for a local drop at POS. ACTION is the action given to x-begin-drag.

Source Code

;; Defined in /usr/src/emacs/lisp/x-dnd.el.gz
(defun x-dnd-handle-native-drop (pos action)
  "Compute the action for a drop at POS.
Return the appropriate drag-and-drop action for a local drop at POS.
ACTION is the action given to `x-begin-drag'."
  (let ((state (funcall x-dnd-test-function
                        (posn-window pos)
                        (cdr (assoc (symbol-name action)
                                    x-dnd-xdnd-to-action))
                        (apply #'vector x-dnd-targets-list))))
    (when state
      (intern (car (rassq (car state) x-dnd-xdnd-to-action))))))