Commit f734a13e authored by Dave Love's avatar Dave Love
Browse files

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

CVS directories too.
parent 5d76bc89
......@@ -339,8 +339,8 @@ from being initialized."
(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 @@ and any subdirectory that contains a file named `.nosearch'."
(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))))
......
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