From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Sat, 20 May 2006 04:29:18 +0000 (+0000)
Subject: (x-dnd-handle-file-name): Encode and escape file names
X-Git-Tag: emacs-pretest-22.0.90~2469
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9be433c82c1c0bb8903dbd180b599c292557eee;p=emacs.git

(x-dnd-handle-file-name): Encode and escape file names
on conversion to URLs.
---

diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index a5b6d409b87..693a2d7fa4b 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -256,14 +256,20 @@ STRING is the uri-list as a string.  The URIs are separated by \r\n."
     retval))
 
 (defun x-dnd-handle-file-name (window action string)
-  "Prepend file:// to file names and call `dnd-handle-one-url'.
+  "Convert file names to URLs and call `dnd-handle-one-url'.
 WINDOW is the window where the drop happened.
 STRING is the file names as a string, separated by nulls."
   (let ((uri-list (split-string string "[\0\r\n]" t))
+	(coding (and default-enable-multibyte-characters
+		     (or file-name-coding-system
+			 default-file-name-coding-system)))
 	retval)
     (dolist (bf uri-list)
       ;; If one URL is handeled, treat as if the whole drop succeeded.
-      (let* ((file-uri (concat "file://" bf))
+      (if coding (setq bf (encode-coding-string bf coding)))
+      (let* ((file-uri (concat "file://"
+			       (mapconcat 'url-hexify-string
+					  (split-string bf "/") "/")))
 	     (did-action (dnd-handle-one-url window action file-uri)))
 	(when did-action (setq retval did-action))))
     retval))