# HG changeset patch
# User Mike Sperber <sperber@deinprogramm.de>
# Date 1200561485 -3600
# Node ID 555e21a66d51b966860fc9a82a4e6a1cf40a78fe
# Parent  e5b3c4dbc8a2a2c9c86f8d6e8b606a09033415db
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.)

diff -r e5b3c4dbc8a2 -r 555e21a66d51 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-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): 
diff -r e5b3c4dbc8a2 -r 555e21a66d51 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 @@
 			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.