Mercurial > emacs

changeset 70763:e5e83c1c6fa5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mac-ae-open-documents): Escape file name on conversion to URL.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Sat, 20 May 2006 04:30:07 +0000
parents 65f2c33d043f
children 0cfc01cbdd73
files lisp/term/mac-win.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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