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

(normal-top-level-add-subdirs-to-load-path): Avoid doing a `stat' when

Browse source 
it isn't necessary because that can cause trouble when an NFS server is down.
This commit is contained in:
Richard M. Stallman 1999-07-05 16:00:07 +00:00
parent 0aeff9e00d
commit 9d1fb1792c
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/startup.el
View file

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