(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 c63c0b15d1a868788fbc5526144652be949ade70..6978855bd932d5e11c4f808a4822fa514d66ab40 100644 (file)
--- 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