From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 23 Mar 1998 00:15:20 +0000 (+0000)
Subject: (normal-top-level-add-subdirs-to-load-path): New function.
X-Git-Tag: emacs-20.3~1810
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=859e15c1e5260f5bc35c27c331f3b412fee587c1;p=emacs.git

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

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)