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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7163de0..2ed99cd 100644 (file)
--- 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 5c404ce..c372117 100644 (file)
--- 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.")