procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2014-06-25 23:45:10 -07:00
parent 18b345686d
commit a0e2175a90
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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.

3
lisp/emacs-lisp/find-func.el
View file

@ -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.")