changeset: 4400:555e21a66d51b966860fc9a82a4e6a1cf40a78fe tag: tip user: Mike Sperber <sperber(a)deinprogramm.de&gt; date: Thu Jan 17 10:18:05 2008 +0100 files: lisp/ChangeLog lisp/files.el description: 2008-01-13 Michael Sperber <mike(a)xemacs.org&gt; * 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.) diff -r e5b3c4dbc8a2a2c9c86f8d6e8b606a09033415db -r 555e21a66d51b966860fc9a82a4e6a1cf40a78fe lisp/ChangeLog --- 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-16 Aidan Kehoe <kehoea＠parhasa +2008-01-17 Mike Sperber <mike(a)xemacs.org&gt; + + * 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(a)parhasard.net&gt; * keydefs.el (global-map): diff -r e5b3c4dbc8a2a2c9c86f8d6e8b606a09033415db -r 555e21a66d51b966860fc9a82a4e6a1cf40a78fe lisp/files.el --- 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 ＠＠ If WILDCARD, it also runs the shell spec 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. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches