diff options
| author | YAMAMOTO Mitsuharu | 2006-05-20 04:30:07 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu | 2006-05-20 04:30:07 +0000 |
| commit | fc0a69d1e762adeabe1dbed048d914817dce1ebe (patch) | |
| tree | 5d58e3849ae0d4522c2e1953308fcce203fa2e18 /lisp/term | |
| parent | 59b715013ed28cc0280fdca151ee750e4f7534c3 (diff) | |
| download | emacs-fc0a69d1e762adeabe1dbed048d914817dce1ebe.tar.gz emacs-fc0a69d1e762adeabe1dbed048d914817dce1ebe.zip | |
(mac-ae-open-documents): Escape file name on conversion to URL.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/mac-win.el | 5 |
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." | |||
| 1616 | (let ((ae (mac-event-ae event))) | 1616 | (let ((ae (mac-event-ae event))) |
| 1617 | (dolist (file-name (mac-ae-list ae nil 'undecoded-file-name)) | 1617 | (dolist (file-name (mac-ae-list ae nil 'undecoded-file-name)) |
| 1618 | (if file-name | 1618 | (if file-name |
| 1619 | (dnd-open-local-file (concat "file:" file-name) nil))) | 1619 | (dnd-open-local-file |
| 1620 | (concat "file://" | ||
| 1621 | (mapconcat 'url-hexify-string | ||
| 1622 | (split-string file-name "/") "/")) nil))) | ||
| 1620 | (let ((selection-range (mac-ae-selection-range ae)) | 1623 | (let ((selection-range (mac-ae-selection-range ae)) |
| 1621 | (search-text (mac-ae-text-for-search ae))) | 1624 | (search-text (mac-ae-text-for-search ae))) |
| 1622 | (cond (selection-range | 1625 | (cond (selection-range |