[Emacs-diffs] emacs-24 r117091: * files.el (cd-absolute): Test if directory is accessible

[Glenn Morris]

------------------------------------------------------------
revno: 117091
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/17330
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Thu 2014-05-08 23:53:30 -0700
message:
  * 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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/files.el                  files.el-20091113204419-o5vbwnq5f7feedwu-265

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-09 06:42:39 +0000
+++ b/lisp/ChangeLog    2014-05-09 06:53:30 +0000
@@ -1,5 +1,8 @@
 2014-05-09  Glenn Morris  <address@hidden>
 
+       * 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)
 

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2014-04-04 02:09:35 +0000
+++ b/lisp/files.el     2014-05-09 06:53:30 +0000
@@ -693,7 +693,7 @@
       (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)))