[Emacs-diffs] trunk r117411: * find-func.el (find-function-C-source-directory): Use file-accessible-directory-p

[Glenn Morris]

------------------------------------------------------------
revno: 117411
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2014-06-25 23:45:10 -0700
message:
  * find-func.el (find-function-C-source-directory): Use 
file-accessible-directory-p
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/find-func.el   
findfunc.el-20091113204419-o5vbwnq5f7feedwu-1249

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-26 06:35:38 +0000
+++ b/lisp/ChangeLog    2014-06-26 06:45:10 +0000
@@ -1,5 +1,8 @@
 2014-06-26  Glenn Morris  <address@hidden>
 
+       * 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.

=== modified file 'lisp/emacs-lisp/find-func.el'
--- a/lisp/emacs-lisp/find-func.el      2014-02-02 02:25:05 +0000
+++ b/lisp/emacs-lisp/find-func.el      2014-06-26 06:45:10 +0000
@@ -178,8 +178,7 @@
 
 (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.")