diff options
| author | YAMAMOTO Mitsuharu | 2008-03-16 09:16:08 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu | 2008-03-16 09:16:08 +0000 |
| commit | 89fe77298d528bdc7e97db58abab513633e80186 (patch) | |
| tree | f308831a65398dc0459575bbfc671620a2c998e0 /lisp/term | |
| parent | 0e12ba6d61eed4f2fa95c273934003111908b61d (diff) | |
| download | emacs-89fe77298d528bdc7e97db58abab513633e80186.tar.gz emacs-89fe77298d528bdc7e97db58abab513633e80186.zip | |
(mac-service-open-file): Use file URL instead of file name string.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/mac-win.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 7bf738bdd50..3ed2e5440a8 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el | |||
| @@ -2117,7 +2117,9 @@ either in the current buffer or in the echo area." | |||
| 2117 | (defun mac-service-open-file () | 2117 | (defun mac-service-open-file () |
| 2118 | "Open the file specified by the selection value for Services." | 2118 | "Open the file specified by the selection value for Services." |
| 2119 | (interactive) | 2119 | (interactive) |
| 2120 | (find-file-existing (x-selection-value mac-service-selection))) | 2120 | ;; The selection seems not to contain the file name as |
| 2121 | ;; public.utf16-plain-text data on Mac OS X 10.4. | ||
| 2122 | (dnd-open-file (x-get-selection mac-service-selection 'public.file-url) nil)) | ||
| 2121 | 2123 | ||
| 2122 | (defun mac-service-open-selection () | 2124 | (defun mac-service-open-selection () |
| 2123 | "Create a new buffer containing the selection value for Services." | 2125 | "Create a new buffer containing the selection value for Services." |