3910 |
|
|
3911 |
;; Read the actual directory using `insert-directory-program'. |
;; Read the actual directory using `insert-directory-program'. |
3912 |
;; RESULT gets the status code. |
;; RESULT gets the status code. |
3913 |
(let ((coding-system-for-read |
(let* ((coding-system-for-read |
3914 |
(and enable-multibyte-characters |
(and enable-multibyte-characters |
3915 |
(or file-name-coding-system |
(or file-name-coding-system |
3916 |
default-file-name-coding-system))) |
default-file-name-coding-system))) |
3917 |
;; This is to control encoding the arguments in call-process. |
;; This is to control encoding the arguments in call-process. |
3918 |
(coding-system-for-write coding-system-for-read)) |
(coding-system-for-write coding-system-for-read)) |
3919 |
(setq result |
(setq result |
3920 |
(if wildcard |
(if wildcard |
3921 |
;; Run ls in the directory part of the file pattern |
;; Run ls in the directory part of the file pattern |