From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Sat, 20 May 2006 04:30:07 +0000 (+0000)
Subject: (mac-ae-open-documents): Escape file name on conversion to URL.
X-Git-Tag: emacs-pretest-22.0.90~2467
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc0a69d1e762adeabe1dbed048d914817dce1ebe;p=emacs.git

(mac-ae-open-documents): Escape file name on conversion to URL.
---

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 77a1533ef9a..8eb8e6a0460 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1616,7 +1616,10 @@ in `selection-converter-alist', which see."
   (let ((ae (mac-event-ae event)))
     (dolist (file-name (mac-ae-list ae nil 'undecoded-file-name))
       (if file-name
-	  (dnd-open-local-file (concat "file:" file-name) nil)))
+	  (dnd-open-local-file
+	   (concat "file://"
+		   (mapconcat 'url-hexify-string
+			      (split-string file-name "/") "/")) nil)))
     (let ((selection-range (mac-ae-selection-range ae))
 	  (search-text (mac-ae-text-for-search ae)))
       (cond (selection-range