Mercurial > emacs

changeset 34349:3d60bae71cd9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(normal-top-level-add-subdirs-to-load-path): Ignore the CVS and RCS subdirectories case-insensitively.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 07 Dec 2000 15:01:59 +0000
parents 5cd770204501
children 120858fee7cc
files lisp/startup.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Thu Dec 07 14:53:45 2000 +0000
+++ b/lisp/startup.el	Thu Dec 07 15:01:59 2000 +0000
@@ -360,7 +360,8 @@
 	  (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