Mercurial > emacs
changeset 24923:702b3d792db9
(normal-top-level-add-subdirs-to-load-path): Avoid doing a `stat' when
it isn't necessary because that can cause trouble when an NFS server is down.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 05 Jul 1999 16:00:07 +0000 |
| parents | ebff04ce5d74 |
| children | ef8649234d91 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Mon Jul 05 05:42:30 1999 +0000 +++ b/lisp/startup.el Mon Jul 05 16:00:07 1999 +0000 @@ -373,6 +373,10 @@ (while contents (unless (member (car contents) '("." ".." "RCS" "CVS")) (when (and (string-match "\\`[a-zA-Z0-9]" (car contents)) + ;; Avoid doing a `stat' when it isn't necessary + ;; because that can cause trouble when an NFS server + ;; is down. + (not (string-match "\\.elc?\\'" (car contents))) (file-directory-p (car contents))) (let ((expanded (expand-file-name (car contents)))) (unless (file-exists-p (expand-file-name ".nosearch"