(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 77a1533ef9a71803ac6971ae9fee0515b8583691..8eb8e6a0460ca9adc334c3f6d67b143a8a53bbb0 100644 (file)
--- 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