Mercurial > hg > xemacs-beta
changeset 4400:555e21a66d51
2008-01-13 Michael Sperber <mike@xemacs.org>
* files.el (insert-directory): Bind `coding-system-for-read'
according to the current locale where available. (Previously, the
default ended up being undecided, which doesn't work well for
UTF-8-based locales, for example.)
| author | Mike Sperber <sperber@deinprogramm.de> |
|---|---|
| date | Thu, 17 Jan 2008 10:18:05 +0100 |
| parents | e5b3c4dbc8a2 |
| children | e70cc8a90e90 |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jan 16 15:43:01 2008 +0100 +++ b/lisp/ChangeLog Thu Jan 17 10:18:05 2008 +0100 @@ -1,3 +1,10 @@ +2008-01-17 Mike Sperber <mike@xemacs.org> + + * files.el (insert-directory): Bind `coding-system-for-read' to + the `file-name' coding system. (Previously, the default ended up + being undecided, which doesn't work well for UTF-8-based locales, + for example.) + 2008-01-16 Aidan Kehoe <kehoea@parhasard.net> * keydefs.el (global-map):
--- a/lisp/files.el Wed Jan 16 15:43:01 2008 +0100 +++ b/lisp/files.el Thu Jan 17 10:18:05 2008 +0100 @@ -4177,6 +4177,9 @@ file switches wildcard full-directory-p))) (t (let* ((beg (point)) + ;; on Unix, assume that ls will output in what the + ;; file-name coding system specifies + (coding-system-for-read (get-coding-system 'file-name)) (result (if wildcard ;; Run ls in the directory of the file pattern we asked for.