Mercurial > emacs
changeset 56852:4504840779eb
* 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.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Tue, 31 Aug 2004 11:24:10 +0000 |
| parents | f3a8f3204f86 |
| children | f9d80356b497 |
| files | lisp/ChangeLog lisp/x-dnd.el |
| diffstat | 2 files changed, 16 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Aug 30 22:03:18 2004 +0000 +++ b/lisp/ChangeLog Tue Aug 31 11:24:10 2004 +0000 @@ -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
--- a/lisp/x-dnd.el Mon Aug 30 22:03:18 2004 +0000 +++ b/lisp/x-dnd.el Tue Aug 31 11:24:10 2004 +0000 @@ -58,8 +58,8 @@ ) "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 @@ :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 @@ "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 @@ 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))))) ;;;