2001-09-04 Andrew Choi <akochoi@cse.cuhk.edu.hk>

	* term/mac-win.el (mac-drag-n-drop): Decode file name by
	consulting the value of file-name-coding-system.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee039edfb7b64f100462ee201ecfcd851bc58aad..07a12fc9283b2a9359fe83bac9b1d92cb1549cab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-04  Andrew Choi  <akochoi@cse.cuhk.edu.hk>
+
+       * term/mac-win.el (mac-drag-n-drop): Decode file name by
+       consulting the value of file-name-coding-system.
+
 2001-09-03  Stefan Monnier  <monnier@cs.yale.edu>
 
        * help.el (describe-function-1): Save precomputed `file-name' rather

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 2032ebe258ce181197b3c42dcfafd6cfb1d67700..48c210d51e251cdcc1d4d60942397becb0509c21 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -150,7 +150,14 @@ Switch to a buffer editing the last file dropped."
           (y (cdr coords)))
       (if (and (> x 0) (> y 0))
          (set-frame-selected-window nil window))
-      (mapcar 'find-file (car (cdr (cdr event)))))
+      (mapcar
+       '(lambda (file)
+         (find-file
+          (decode-coding-string
+           file
+           (or file-name-coding-system
+               default-file-name-coding-system))))
+       (car (cdr (cdr event)))))
   (raise-frame)
   (recenter)))