Mercurial > emacs

changeset 80334:9833887c464d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mac-service-open-file): Use file URL instead of file name string.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Sun, 16 Mar 2008 09:15:38 +0000
parents 5818a522c583
children 0095e7ebf658
files lisp/term/mac-win.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/mac-win.el	Fri Mar 14 19:38:46 2008 +0000
+++ b/lisp/term/mac-win.el	Sun Mar 16 09:15:38 2008 +0000
@@ -2117,7 +2117,9 @@
 (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."