diff lisp/files.el @ 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 c5a2b80bc4fa
children 8cef85a39d2c
line wrap: on
line diff
--- 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.