diff options
author | Glenn Morris <rgm@gnu.org> | 2014-05-08 23:53:30 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2014-05-08 23:53:30 -0700 |
commit | 2651ed05dc472261e4cdee42b108af7a4f786843 (patch) | |
tree | 274e7e7988e5991a6d6ccb6181fa98a04649d2ea | |
parent | bb1f4b8f9a0539e57f5fb31c8168950c92aa4492 (diff) | |
download | emacs-2651ed05dc472261e4cdee42b108af7a4f786843.tar.gz |
* 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.
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/files.el | 2 |
2 files changed, 4 insertions, 1 deletions
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 <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 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))) |