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

`file-accessible-directory-p' only when the default directory is
not remote.

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 08f6ac4d075..7e229f8643d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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
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))))