58 |
) |
) |
59 |
|
|
60 |
"The functions to call for different protocols when a drop is made. |
"The functions to call for different protocols when a drop is made. |
61 |
This variable is used by `x-dnd-handle-uri-list' and `x-dnd-handle-moz-url'. |
This variable is used by `x-dnd-handle-uri-list', `x-dnd-handle-file-name' |
62 |
The list contains of (REGEXP . FUNCTION) pairs. |
and `x-dnd-handle-moz-url'. The list contains of (REGEXP . FUNCTION) pairs. |
63 |
The functions shall take two arguments, URL, which is the URL dropped and |
The functions shall take two arguments, URL, which is the URL dropped and |
64 |
ACTION which is the action to be performed for the drop (move, copy, link, |
ACTION which is the action to be performed for the drop (move, copy, link, |
65 |
private or ask). |
private or ask). |
104 |
:type 'boolean |
:type 'boolean |
105 |
:group 'x) |
:group 'x) |
106 |
|
|
107 |
;; Internal variables |
(defcustom x-dnd-known-types |
|
|
|
|
(defvar x-dnd-known-types |
|
108 |
'("text/uri-list" |
'("text/uri-list" |
109 |
"text/x-moz-url" |
"text/x-moz-url" |
110 |
"_NETSCAPE_URL" |
"_NETSCAPE_URL" |
119 |
"TEXT" |
"TEXT" |
120 |
) |
) |
121 |
"The types accepted by default for dropped data. |
"The types accepted by default for dropped data. |
122 |
The types are chosen in the order they appear in the list.") |
The types are chosen in the order they appear in the list." |
123 |
|
:type '(repeat string) |
124 |
|
:group 'x |
125 |
|
) |
126 |
|
|
127 |
|
;; Internal variables |
128 |
|
|
129 |
(defvar x-dnd-current-state nil |
(defvar x-dnd-current-state nil |
130 |
"The current state for a drop. |
"The current state for a drop. |
868 |
timestamp) |
timestamp) |
869 |
(x-dnd-forget-drop frame))) |
(x-dnd-forget-drop frame))) |
870 |
|
|
871 |
(t (error "Unknown Motif DND message %s %s" message data))))) |
(t (error "Unknown Motif DND message %s %s" message-atom data))))) |
872 |
|
|
873 |
|
|
874 |
;;; |
;;; |