From a0e2175a9055f2ea8ae03744d495e5179885029d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 25 Jun 2014 23:45:10 -0700 Subject: [PATCH] * find-func.el (find-function-C-source-directory): Use file-accessible-directory-p --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/find-func.el | 3 +-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7163de0921..2ed99cddef 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2014-06-26 Glenn Morris + * 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 5c404ce046..c372117b10 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.") -- 2.20.1