From: Robert Pluim <rpluim@gmail.com>
Date: Wed, 26 Aug 2020 12:47:22 +0000 (+0200)
Subject: Allow directories to be called .el in -add-subdirs-to-load-path
X-Git-Tag: emacs-28.0.90~6380
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fca0d6e875e7eb3ab3ca117e7552315e1a56b282;p=emacs.git

Allow directories to be called .el in -add-subdirs-to-load-path

* lisp/startup.el (normal-top-level-add-subdirs-to-load-path):
Allow the directories to be called "<foo>.el" (bug#32266).
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 364689ccdbf..d9682eef4c8 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -463,9 +463,6 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 	    (and (string-match "\\`[[:alnum:]]" file)
 		 ;; The lower-case variants of RCS and CVS are for DOS/Windows.
 		 (not (member file '("RCS" "CVS" "rcs" "cvs")))
-		 ;; Avoid doing a `stat' when it isn't necessary because
-		 ;; that can cause trouble when an NFS server is down.
-		 (not (string-match "\\.elc?\\'" file))
 		 (file-directory-p file)
 		 (let ((expanded (expand-file-name file)))
 		   (or (file-exists-p (expand-file-name ".nosearch" expanded))