summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/find-func.el
diff options
context:
space:
mode:
authorKenichi Handa <handa@gnu.org>2014-06-28 10:35:48 +0900
committerKenichi Handa <handa@gnu.org>2014-06-28 10:35:48 +0900
commitf036e167feaf875873636972b28a4adc12c32254 (patch)
tree440e45ae8951f7030393b130b184f2b1882070ee /lisp/emacs-lisp/find-func.el
parent1fc00e5c9e87c88b4b253692d6ade822f6d74d3e (diff)
parent2c4e2e6fd3096eb615504e3cfc89c588ec620f78 (diff)
downloademacs-f036e167feaf875873636972b28a4adc12c32254.tar.gz
emacs-f036e167feaf875873636972b28a4adc12c32254.tar.bz2
emacs-f036e167feaf875873636972b28a4adc12c32254.zip
merge trunk
Diffstat (limited to 'lisp/emacs-lisp/find-func.el')
-rw-r--r--lisp/emacs-lisp/find-func.el3
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.")