# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 896793673 0
# Node ID 97931742186330713df9869458c6099947791f54
# Parent  8d612a46dac699cff57d3a3b47c1dada6e5cec2c
(normal-top-level-add-subdirs-to-load-path): Ignore
CVS directories too.

diff -r 8d612a46dac6 -r 979317421863 lisp/startup.el
--- a/lisp/startup.el	Tue Jun 02 08:10:36 1998 +0000
+++ b/lisp/startup.el	Tue Jun 02 13:21:13 1998 +0000
@@ -339,8 +339,8 @@
 (defun normal-top-level-add-subdirs-to-load-path ()
   "Add all subdirectories of current directory to `load-path'.
 More precisely, this uses only the subdirectories whose names
-start with letters or digits; it excludes any subdirectory named`RCS',
-and any subdirectory that contains a file named `.nosearch'."
+start with letters or digits; it excludes any subdirectory named `RCS'
+or `CVS', and any subdirectory that contains a file named `.nosearch'."
   (let (dirs 
 	(pending (list default-directory)))
     ;; This loop does a breadth-first tree walk on DIR's subtree,
@@ -351,7 +351,7 @@
       (let ((contents (directory-files (car dirs)))
 	    (default-directory (car dirs)))
 	(while contents
-	  (unless (member (car contents) '("." ".." "RCS"))
+	  (unless (member (car contents) '("." ".." "RCS" "CVS"))
 	    (when (and (string-match "\\`[a-zA-Z0-9]" (car contents))
 		       (file-directory-p (car contents)))
 	      (let ((expanded (expand-file-name (car contents))))