# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1080926992 0
# Node ID bd0296e87c1684b9d98659b2d1cb7e70a3254f42
# Parent  8e0abac00108924b3018dba9869b9daca60bdf88
* x-dnd.el (x-dnd-handle-moz-url, x-dnd-insert-utf16-text): Use
  utf-16le on little endian machines and utf-16be otherwise.

diff -r 8e0abac00108 -r bd0296e87c16 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Apr 02 14:33:08 2004 +0000
+++ b/lisp/ChangeLog	Fri Apr 02 17:29:52 2004 +0000
@@ -1,3 +1,8 @@
+2004-04-02  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+	* x-dnd.el (x-dnd-handle-moz-url, x-dnd-insert-utf16-text): Use
+	utf-16le on little endian machines and utf-16be otherwise.
+
 2004-04-02  David Kastrup  <dak@gnu.org>
 
 	* net/browse-url.el (browse-url-generic): Use call-process
diff -r 8e0abac00108 -r bd0296e87c16 lisp/x-dnd.el
--- a/lisp/x-dnd.el	Fri Apr 02 14:33:08 2004 +0000
+++ b/lisp/x-dnd.el	Fri Apr 02 17:29:52 2004 +0000
@@ -336,7 +336,12 @@
 DATA is the moz-url, which is formatted as two strings separated by \r\n.
 The first string is the URL, the second string is the title of that URL.
 DATA is encoded in utf-16.  Decode the URL and call `x-dnd-handle-uri-list'."
-  (let* ((string (decode-coding-string data 'utf-16le))  ;; ALWAYS LE???
+  ;; Mozilla and applications based on it (Galeon for example) uses
+  ;; text/unicode, but it is impossible to tell if it is le or be.  Use what
+  ;; the machine Emacs runs on use.  This looses if dropping between machines
+  ;; with different endian, but it is the best we can do.
+  (let* ((coding (if (eq (byteorder) ?B) 'utf-16be 'utf-16le))
+	 (string (decode-coding-string data coding))
 	 (strings (split-string string "[\r\n]" t))
 	 ;; Can one drop more than one moz-url ??  Assume not.
 	 (url (car strings))
@@ -351,7 +356,9 @@
 (defun x-dnd-insert-utf16-text (window action text)
   "Decode the UTF-16 text and insert it at point.
 TEXT is the text as a string, WINDOW is the window where the drop happened."
-  (x-dnd-insert-text window action (decode-coding-string text 'utf-16le)))
+  ;; See comment in x-dnd-handle-moz-url about coding.
+  (let ((coding (if (eq (byteorder) ?B) 'utf-16be 'utf-16le)))
+    (x-dnd-insert-text window action (decode-coding-string text coding))))
 
 (defun x-dnd-insert-ctext (window action text)
   "Decode the compound text and insert it at point.