diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2012-03-02 16:29:28 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2012-03-02 16:29:28 +0100 |
| commit | 817e5c3dfc0c2b47ff60ff9f099e881a8e9efc25 (patch) | |
| tree | 17fd75c331a27d1579bf65213c6bceceaa858aff /lisp/jka-compr.el | |
| parent | b8456c5c325733db94a5b6fa935b60a2e7de3581 (diff) | |
| download | emacs-817e5c3dfc0c2b47ff60ff9f099e881a8e9efc25.tar.gz | |
* jka-compr.el (jka-compr-call-process): Apply
`file-accessible-directory-p' only when the default directory is
not remote.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 8a8d7cdbb52..7e50ae57b19 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -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)))) |