Commit a9173359 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(insert-directory): Bind coding-system-for-write.

Don't encode filename here because call-process encodes the
arguments by codign-system-for-write.
parent 54138c9d
......@@ -2988,6 +2988,8 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
(and enable-multibyte-characters
(or file-name-coding-system
default-file-name-coding-system)))
;; This binding is for encoding arguements by call-process.
(coding-system-for-write coding-system-for-read)
(result
(if wildcard
;; Run ls in the directory of the file pattern we asked for.
......@@ -3016,9 +3018,7 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
switches
(mapconcat 'identity switches " "))
" -- "
(encode-coding-string
pattern
file-name-coding-system t))))
pattern)))
;; SunOS 4.1.3, SVr4 and others need the "." to list the
;; directory if FILE is a symbolic link.
(apply 'call-process
......@@ -3039,11 +3039,9 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
;; Avoid lossage if FILE starts with `-'.
'("--")
(list
(encode-coding-string
(if full-directory-p
(concat (file-name-as-directory file) ".")
file)
file-name-coding-system t))))))))
(if full-directory-p
(concat (file-name-as-directory file) ".")
file))))))))
(if (/= result 0)
;; We get here if ls failed.
;; Access the file to get a suitable error.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment