From ae355fa64acf5a71e6199fb3f8c3eb9fed569e8e Mon Sep 17 00:00:00 2001 From: Andrew Choi Date: Tue, 4 Sep 2001 03:43:23 +0000 Subject: [PATCH] 2001-09-04 Andrew Choi * term/mac-win.el (mac-drag-n-drop): Decode file name by consulting the value of file-name-coding-system. --- lisp/ChangeLog | 5 +++++ lisp/term/mac-win.el | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ee039edfb7b..07a12fc9283 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-09-04 Andrew Choi + + * 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 * 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 2032ebe258c..48c210d51e2 100644 --- 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))) -- 2.39.2