diff options
| -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 |