(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 --git a/lisp/startup.el b/lisp/startup.el
index b30bd450ea3a21f8cee48238580e6f2c7914c1c9..39286a561107cda3a28b2ba7a656d4de42f0fb07 100644 (file)
--- 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"