master fca0d6e 1/2: Allow directories to be called .el in -add-subdirs-to-load-path

[Lars Ingebrigtsen]

branch: master
commit fca0d6e875e7eb3ab3ca117e7552315e1a56b282
Author: Robert Pluim <rpluim@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/startup.el | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/lisp/startup.el b/lisp/startup.el
index 364689c..d9682ee 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))