# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1093951450 0
# Node ID 4504840779eb429d727f035c2cf55cfdf8ed5be0
# Parent  f3a8f3204f86562fb367262c9463beae322bad6a
* 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.

diff -r f3a8f3204f86 -r 4504840779eb lisp/ChangeLog
--- 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
diff -r f3a8f3204f86 -r 4504840779eb lisp/x-dnd.el
--- 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)))))
 					   
 
 ;;;