From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 7 Dec 2000 15:01:59 +0000 (+0000)
Subject: (normal-top-level-add-subdirs-to-load-path): Ignore
X-Git-Tag: emacs-pretest-21.0.93~98
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4a40544038f36891032d1ba166626ca9bb679d7;p=emacs.git

(normal-top-level-add-subdirs-to-load-path): Ignore
the CVS and RCS subdirectories case-insensitively.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index c63c0b15d1a..6978855bd93 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -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