# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 931190407 0
# Node ID 702b3d792db9d913d0134d6d5873e8c3c4a15e6f
# Parent  ebff04ce5d74a85e89f89871978fa55ffe44305c
(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.

diff -r ebff04ce5d74 -r 702b3d792db9 lisp/startup.el
--- 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"