From: Kenichi Handa <handa@m17n.org>
Date: Tue, 9 Jul 2002 02:42:06 +0000 (+0000)
Subject: (insert-directory): Be sure to bind
X-Git-Tag: ttn-vms-21-2-B4~14227
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82e22b5719766011d2ff9281a21b720130c32ce1;p=emacs.git

(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 7289f6573af..17eb7fb1826 100644
--- 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 27ecf1901d5..f457b85e189 100644
--- 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