[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r107483: * jka-compr.el (jka-compr-ca
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r107483: * jka-compr.el (jka-compr-call-process): Apply |
Date: |
Fri, 02 Mar 2012 16:29:28 +0100 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r107483: * jka-compr.el (jka-compr-call-process): Apply,
Michael Albinus <=