[Emacs-diffs] /srv/bzr/emacs/trunk r107483: * jka-compr.el (jka-compr-call-process): Apply

[Michael Albinus]

------------------------------------------------------------
revno: 107483
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2012-03-02 16:29:28 +0100
message:
  * jka-compr.el (jka-compr-call-process): Apply
  `file-accessible-directory-p' only when the default directory is
  not remote.
modified:
  lisp/ChangeLog
  lisp/jka-compr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-01 09:01:08 +0000
+++ b/lisp/ChangeLog    2012-03-02 15:29:28 +0000
@@ -1,3 +1,9 @@
+2012-03-02  Michael Albinus  <address@hidden>
+
+       * 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  <address@hidden>
 
        * files.el (file-equal-p): Fix docstring.  Avoid unnecessary

=== modified file 'lisp/jka-compr.el'
--- a/lisp/jka-compr.el 2012-01-21 00:41:05 +0000
+++ b/lisp/jka-compr.el 2012-03-02 15:29:28 +0000
@@ -203,6 +203,7 @@
   ;; 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))))