[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el

[YAMAMOTO Mitsuharu]

Index: emacs/lisp/term/mac-win.el
diff -u emacs/lisp/term/mac-win.el:1.71 emacs/lisp/term/mac-win.el:1.72
--- emacs/lisp/term/mac-win.el:1.71     Fri May 19 09:09:37 2006
+++ emacs/lisp/term/mac-win.el  Sat May 20 04:30:07 2006
@@ -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