From 859e15c1e5260f5bc35c27c331f3b412fee587c1 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 23 Mar 1998 00:15:20 +0000 Subject: [PATCH] (normal-top-level-add-subdirs-to-load-path): New function. --- lisp/startup.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index a5786239380..920fe717377 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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) -- 2.39.5