diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-06-25 23:45:10 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-06-25 23:45:10 -0700 |
| commit | a0e2175a9055f2ea8ae03744d495e5179885029d (patch) | |
| tree | c643bced992e8dccee1117b8aa6502244e0136f1 /lisp/emacs-lisp | |
| parent | 18b345686d6a6f00eadb866b541b4f458fcfdb02 (diff) | |
| download | emacs-a0e2175a9055f2ea8ae03744d495e5179885029d.tar.gz emacs-a0e2175a9055f2ea8ae03744d495e5179885029d.tar.bz2 emacs-a0e2175a9055f2ea8ae03744d495e5179885029d.zip | |
* find-func.el (find-function-C-source-directory): Use file-accessible-directory-p
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 3 |
1 files changed, 1 insertions, 2 deletions
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.") |