From: Glenn Morris Date: Fri, 9 May 2014 06:53:30 +0000 (-0700) Subject: * files.el (cd-absolute): Test if directory is accessible X-Git-Tag: emacs-24.3.91~17 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2651ed05dc472261e4cdee42b108af7a4f786843;p=emacs.git * 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 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)))