From 2651ed05dc472261e4cdee42b108af7a4f786843 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 8 May 2014 23:53:30 -0700 Subject: [PATCH] * 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. --- lisp/ChangeLog | 3 +++ lisp/files.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c1b13e7cebb..87825ef838d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2014-05-09 Glenn Morris + * 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 e721a813a59..2e66a303dc6 100644 --- 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))) -- 2.39.5