* files.el (cd-absolute): Test if directory is accessible

rather than executable.

This can't be any worse, and may be better in some situations.
It may or may not fix bug#17330.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1b13e7cebb8dee58f160d6ffa9687ac049cae0f..87825ef838daf83afe5f14e470fa5deb8493bf6e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-05-09  Glenn Morris  <rgm@gnu.org>
 
+       * files.el (cd-absolute): Test if directory is accessible
+       rather than executable.  (Bug#17330)
+
        * progmodes/compile.el (recompile):
        Handle C-u M-x recompile from a non-compilation buffer.  (Bug#17444)
 

diff --git a/lisp/files.el b/lisp/files.el
index e721a813a5915330ccfa8cd8dec1c3d0028a9073..2e66a303dc6ef3b950bca2e679eea6005520f569 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -693,7 +693,7 @@ nil (meaning `default-directory') as the associated list element."
       (if (file-exists-p dir)
          (error "%s is not a directory" dir)
        (error "%s: no such directory" dir))
-    (unless (file-executable-p dir)
+    (unless (file-accessible-directory-p dir)
       (error "Cannot cd to %s:  Permission denied" dir))
     (setq default-directory dir)
     (setq list-buffers-directory dir)))