procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/startup.el (normal-top-level-add-subdirs-to-load-path):
Allow the directories to be called "<foo>.el" (bug#32266).
This commit is contained in:
Robert Pluim 2020-08-26 14:47:22 +02:00 • committed by Lars Ingebrigtsen
parent f68a8869d1
commit fca0d6e875
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/startup.el
View file

@ -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))