mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* x-dnd.el (x-dnd-protocol-alist): Document update.

Browse Source 
(x-dnd-known-types): Defcustom it.
(x-dnd-handle-motif): Print message-atom in error message.
This commit is contained in:
Jan Djärv 2004-08-31 11:24:10 +00:00
parent 2aa2f8b8c9
commit 7a01b04085
2 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2004-08-31 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* x-dnd.el (x-dnd-protocol-alist): Document update.
(x-dnd-known-types): Defcustom it.
(x-dnd-handle-motif): Print message-atom in error message.
2004-08-30 John Paul Wallington <jpw@gnu.org>
* textmodes/tex-mode.el (tex-validate-buffer): Use distinct

17
lisp/x-dnd.el
View File

@ -58,8 +58,8 @@ The default value for this variable is `x-dnd-default-test-function'."
)
"The functions to call for different protocols when a drop is made.
This variable is used by `x-dnd-handle-uri-list' and `x-dnd-handle-moz-url'.
The list contains of (REGEXP . FUNCTION) pairs.
This variable is used by `x-dnd-handle-uri-list', `x-dnd-handle-file-name'
and `x-dnd-handle-moz-url'. The list contains of (REGEXP . FUNCTION) pairs.
The functions shall take two arguments, URL, which is the URL dropped and
ACTION which is the action to be performed for the drop (move, copy, link,
private or ask).
@ -104,9 +104,7 @@ is successful, nil if not."
:type 'boolean
:group 'x)
;; Internal variables
(defvar x-dnd-known-types
(defcustom x-dnd-known-types
'("text/uri-list"
"text/x-moz-url"
"_NETSCAPE_URL"
@ -121,7 +119,12 @@ is successful, nil if not."
"TEXT"
)
"The types accepted by default for dropped data.
The types are chosen in the order they appear in the list.")
The types are chosen in the order they appear in the list."
:type '(repeat string)
:group 'x
)
;; Internal variables
(defvar x-dnd-current-state nil
"The current state for a drop.
@ -865,7 +868,7 @@ FORMAT is 32 (not used). MESSAGE is the data part of an XClientMessageEvent."
timestamp)
(x-dnd-forget-drop frame)))
(t (error "Unknown Motif DND message %s %s" message data)))))
(t (error "Unknown Motif DND message %s %s" message-atom data)))))
;;;