From a91733595d6361493edd379f4e3b14b3413f1042 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 3 Mar 1998 07:17:56 +0000 Subject: [PATCH] (insert-directory): Bind coding-system-for-write. Don't encode filename here because call-process encodes the arguments by codign-system-for-write. --- lisp/files.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index c25799990d7..c28455a8d66 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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. -- 2.39.2