From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Sun, 16 Mar 2008 09:16:08 +0000 (+0000)
Subject: (mac-service-open-file): Use file URL instead of file name string.
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/89fe77298d528bdc7e97db58abab513633e80186

(mac-service-open-file): Use file URL instead of file name string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89fecabe85..54a8beccae 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 7bf738bdd5..3ed2e5440a 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."