From 789943bb9bcc077aa725f905a91ad7145e3e7ac3 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 2 Mar 2012 16:29:28 +0100 Subject: [PATCH] * jka-compr.el (jka-compr-call-process): Apply `file-accessible-directory-p' only when the default directory is not remote. --- lisp/ChangeLog | 6 ++++++ lisp/jka-compr.el | 1 + 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e5d9df605ed..938d7873725 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-03-02 Michael Albinus + + * 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 * 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)))) -- 2.11.4.GIT