# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1148099407 0
# Node ID e5e83c1c6fa524d9c3373b441e9f46bc9540de5b
# Parent  65f2c33d043f984b6782587970a34d946608100b
(mac-ae-open-documents): Escape file name on conversion to URL.

diff -r 65f2c33d043f -r e5e83c1c6fa5 lisp/term/mac-win.el
--- a/lisp/term/mac-win.el	Sat May 20 04:29:38 2006 +0000
+++ b/lisp/term/mac-win.el	Sat May 20 04:30:07 2006 +0000
@@ -1616,7 +1616,10 @@
   (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