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 | |
| parent | 18b345686d6a6f00eadb866b541b4f458fcfdb02 (diff) | |
| download | emacs-a0e2175a9055f2ea8ae03744d495e5179885029d.tar.gz | |
* find-func.el (find-function-C-source-directory): Use file-accessible-directory-p
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 3 |
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.") |