mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 13:00:51 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
YAMAMOTO Mitsuharu 2006-05-20 04:30:07 +00:00
parent 59b715013e
commit fc0a69d1e7
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/term/mac-win.el
View file

@ -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