Skip to content

GitLab

Commit c4a40544 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(normal-top-level-add-subdirs-to-load-path): Ignore 

the CVS and RCS subdirectories case-insensitively.
parent 76a76a57
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
lisp/startup.el
View file @ c4a40544
......@@ -360,7 +360,8 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(setq normal-top-level-add-subdirs-inode-list
(cons attrs normal-top-level-add-subdirs-inode-list))
(while contents
(unless (member (car contents) '("." ".." "RCS" "CVS"))
;; The lower-case variants of RCS and CVS are for DOS/Windows.
(unless (member (car contents) '("." ".." "RCS" "CVS" "rcs" "cvs"))
(when (and (string-match "\\`[[:alnum:]]" (car contents))
;; Avoid doing a `stat' when it isn't necessary
;; because that can cause trouble when an NFS server
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment