mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Karl Heuer 1998-03-23 00:15:20 +00:00
parent 2fa149b63f
commit 859e15c1e5
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/startup.el
View file

@ -333,6 +333,26 @@ from being initialized."
(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)