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

1 files changed, 4 insertions, 1 deletions

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