comparison lisp/startup.el @ 22334:979317421863

(normal-top-level-add-subdirs-to-load-path): Ignore CVS directories too.

22333:8d612a46dac6

(defvar init-file-had-error nil)

(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'."
  (let (dirs 
	(pending (list default-directory)))
    ;; This loop does a breadth-first tree walk on DIR's subtree,
    ;; putting each subdir into DIRS as its contents are examined.
    (while pending
      (setq dirs (cons (car pending) dirs))
      (setq pending (cdr pending))
      (let ((contents (directory-files (car dirs)))
	    (default-directory (car dirs)))
	(while contents
	  (unless (member (car contents) '("." ".." "RCS"))
	    (when (and (string-match "\\`[a-zA-Z0-9]" (car contents))
		       (file-directory-p (car contents)))
	      (let ((expanded (expand-file-name (car contents))))
		(unless (file-exists-p (expand-file-name ".nosearch"
							 expanded))

22334:979317421863

(defvar init-file-had-error nil)

(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'
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,
    ;; putting each subdir into DIRS as its contents are examined.
    (while pending
      (setq dirs (cons (car pending) dirs))
      (setq pending (cdr pending))
      (let ((contents (directory-files (car dirs)))
	    (default-directory (car dirs)))
	(while contents
	  (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))))
		(unless (file-exists-p (expand-file-name ".nosearch"
							 expanded))