From: Glenn Morris <rgm@gnu.org>
Date: Thu, 26 Jun 2014 06:45:10 +0000 (-0700)
Subject: * find-func.el (find-function-C-source-directory): Use file-accessible-directory-p
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/a0e2175a9055f2ea8ae03744d495e5179885029d

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7163de0921..2ed99cddef 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 5c404ce046..c372117b10 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.")