From fca0d6e875e7eb3ab3ca117e7552315e1a56b282 Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Wed, 26 Aug 2020 14:47:22 +0200 Subject: [PATCH] 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 ".el" (bug#32266). --- lisp/startup.el | 3 --- 1 file changed, 3 deletions(-) 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)) -- 2.39.2