Commit 817e5c3d authored by Michael Albinus's avatar Michael Albinus
Browse files

* jka-compr.el (jka-compr-call-process): Apply

`file-accessible-directory-p' only when the default directory is
not remote.
parent b8456c5c
2012-03-02 Michael Albinus <michael.albinus@gmx.de>
* jka-compr.el (jka-compr-call-process): Apply
`file-accessible-directory-p' only when the default directory is
not remote.
2012-03-01 Michael Albinus <michael.albinus@gmx.de>
* files.el (file-equal-p): Fix docstring. Avoid unnecessary
......
......@@ -203,6 +203,7 @@ to keep: LEN chars starting BEG chars from the beginning."
;; call-process barfs if default-directory is inaccessible.
(let ((default-directory
(if (and default-directory
(not (file-remote-p default-directory))
(file-accessible-directory-p default-directory))
default-directory
(file-name-directory infile))))
......
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