# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1026182500 0
# Node ID edbc0e22f0cbeaad737ca1902906b3e9868c482d
# Parent  0df96ec2ceb83d060b807240679eb672fbf5a53d
(insert-directory): Be sure to bind
coding-system-for-write to the just decided
coding-system-for-read.

diff -r 0df96ec2ceb8 -r edbc0e22f0cb lisp/files.el
--- a/lisp/files.el	Tue Jul 09 00:43:51 2002 +0000
+++ b/lisp/files.el	Tue Jul 09 02:41:40 2002 +0000
@@ -3910,12 +3910,12 @@
 
 	  ;; 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