* find-func.el (find-function-C-source-directory): Use file-accessible-directory-p

2 files changed, 4 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7163de09218..2ed99cddefb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-06-26  Glenn Morris  <rgm@gnu.org>
 
+        * emacs-lisp/find-func.el (find-function-C-source-directory):
+        Use file-accessible-directory-p.
+
         * ps-samp.el: Make it slightly less awful.
         (ps-rmail-mode-hook, ps-gnus-article-prepare-hook, ps-vm-mode-hook):
         (ps-gnus-summary-setup, ps-info-mode-hook): Use [print] key.
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 5c404ce0468..c372117b104 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -178,8 +178,7 @@ LIBRARY should be a string (the name of the library)."
 
 (defvar find-function-C-source-directory
   (let ((dir (expand-file-name "src" source-directory)))
-    (when (and (file-directory-p dir) (file-readable-p dir))
-      dir))
+    (if (file-accessible-directory-p dir) dir))
   "Directory where the C source files of Emacs can be found.
 If nil, do not try to find the source code of functions and variables
 defined in C.")