comparison lisp/startup.el @ 21264:9eb6fcceba90

(normal-top-level-add-subdirs-to-load-path): New function.

21263:4a9b37818fac

  :group 'auto-save)

(defvar init-file-debug nil)

(defvar init-file-had-error nil)

;; This function is called from the subdirs.el file.
(defun normal-top-level-add-to-load-path (dirs)
  (let ((tail load-path)
	(thisdir (directory-file-name default-directory)))

21264:9eb6fcceba90

  :group 'auto-save)

(defvar init-file-debug nil)

(defvar init-file-had-error nil)

(defun normal-top-level-add-subdirs-to-load-path ()
  "Add all subdirectories of current directory to `load-path'."
  (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 (file-directory-p (car contents))
	      (setq pending (nconc pending
				   (list (expand-file-name (car contents)))))))
	  (setq contents (cdr contents)))))
    (normal-top-level-add-to-load-path dirs)))

;; This function is called from the subdirs.el file.
(defun normal-top-level-add-to-load-path (dirs)
  (let ((tail load-path)
	(thisdir (directory-file-name default-directory)))