(insert-directory): Be sure to bind

coding-system-for-write to the just decided
coding-system-for-read.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7289f6573af85840f201e63bc71cdb550ab018ae..17eb7fb18262847555a6432e81e36e8211a0cab7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-07-09  Kenichi Handa  <handa@etl.go.jp>
+
+       * files.el (insert-directory): Be sure to bind
+       coding-system-for-write to the just decided
+       coding-system-for-read.
+
 2002-07-09  Kim F. Storm  <storm@cua.dk>
 
        * ido.el (ido-make-merged-file-list): Move fully matching item to

diff --git a/lisp/files.el b/lisp/files.el
index 27ecf1901d504a42a040d901751b4dee301e0e0f..f457b85e1894f1adaaa6b906f6634f34f5ad371b 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3910,12 +3910,12 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
 
          ;; Read the actual directory using `insert-directory-program'.
          ;; RESULT gets the status code.
-         (let ((coding-system-for-read
-                (and enable-multibyte-characters
-                     (or file-name-coding-system
-                         default-file-name-coding-system)))
-               ;; This is to control encoding the arguments in call-process.
-               (coding-system-for-write coding-system-for-read))
+         (let* ((coding-system-for-read
+                 (and enable-multibyte-characters
+                      (or file-name-coding-system
+                          default-file-name-coding-system)))
+                ;; This is to control encoding the arguments in call-process.
+                (coding-system-for-write coding-system-for-read))
            (setq result
                  (if wildcard
                      ;; Run ls in the directory part of the file pattern