[Emacs-diffs] Changes to emacs/lisp/files.el

[Kenichi Handa]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.591 emacs/lisp/files.el:1.592
*** emacs/lisp/files.el:1.591   Sun Jul  7 19:15:04 2002
--- emacs/lisp/files.el Mon Jul  8 22:41:40 2002
***************
*** 3910,3921 ****
  
          ;; 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))
            (setq result
                  (if wildcard
                      ;; Run ls in the directory part of the file pattern
--- 3910,3921 ----
  
          ;; 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))
            (setq result
                  (if wildcard
                      ;; Run ls in the directory part of the file pattern