Mercurial > emacs
changeset 39101:6e45d26a2555
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.
| author | Andrew Choi <akochoi@shaw.ca> |
|---|---|
| date | Tue, 04 Sep 2001 03:43:23 +0000 |
| parents | d6ab4bbbc133 |
| children | 9647ef27680a |
| files | lisp/ChangeLog lisp/term/mac-win.el |
| diffstat | 2 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 04 01:06:53 2001 +0000 +++ b/lisp/ChangeLog Tue Sep 04 03:43:23 2001 +0000 @@ -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
--- a/lisp/term/mac-win.el Tue Sep 04 01:06:53 2001 +0000 +++ b/lisp/term/mac-win.el Tue Sep 04 03:43:23 2001 +0000 @@ -150,7 +150,14 @@ (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)))