diff options
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2008-03-16 09:16:08 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2008-03-16 09:16:08 +0000 |
| commit | 89fe77298d528bdc7e97db58abab513633e80186 (patch) | |
| tree | f308831a65398dc0459575bbfc671620a2c998e0 | |
| parent | 0e12ba6d61eed4f2fa95c273934003111908b61d (diff) | |
| download | emacs-89fe77298d528bdc7e97db58abab513633e80186.tar.gz | |
(mac-service-open-file): Use file URL instead of file name string.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/term/mac-win.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 89fecabe85f..54a8beccae7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-03-16 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> + + * term/mac-win.el (mac-service-open-file): Use file URL instead of + file name string. + 2008-03-14 Stefan Monnier <monnier@iro.umontreal.ca> * vc-bzr.el (vc-bzr-registered): Fail if `bzr' is not installed. 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." (defun mac-service-open-file () "Open the file specified by the selection value for Services." (interactive) - (find-file-existing (x-selection-value mac-service-selection))) + ;; The selection seems not to contain the file name as + ;; public.utf16-plain-text data on Mac OS X 10.4. + (dnd-open-file (x-get-selection mac-service-selection 'public.file-url) nil)) (defun mac-service-open-selection () "Create a new buffer containing the selection value for Services." |