diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-07-05 16:00:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-07-05 16:00:07 +0000 |
| commit | 9d1fb1792cbdfe71d0729eb56820d934483d8beb (patch) | |
| tree | a910d4583d8a3dfdd3aac26744a158e255ec3262 | |
| parent | 0aeff9e00d04d0af5b32f0619f81b61ca7c45da9 (diff) | |
| download | emacs-9d1fb1792cbdfe71d0729eb56820d934483d8beb.tar.gz | |
(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.
| -rw-r--r-- | lisp/startup.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index b30bd450ea3..39286a56110 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -373,6 +373,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (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" |