From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 11 May 1998 01:17:48 +0000 (+0000)
Subject: (normal-top-level-add-subdirs-to-load-path):
X-Git-Tag: emacs-20.3~1053
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0412d833601f074eb6b39cfdb298e098eff69f3c;p=emacs.git

(normal-top-level-add-subdirs-to-load-path):
Ignore subdirectories whose names start with nonalphanumeric
or that have a file called .nosearch.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index ee7227aa1e9..1a85a2aa0be 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -334,7 +334,10 @@ 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'."
+  "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,
@@ -345,11 +348,13 @@ from being initialized."
       (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)))))))
+	  (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))
+		  (setq pending (nconc pending (list expanded)))))))
 	  (setq contents (cdr contents)))))
     (normal-top-level-add-to-load-path (cdr (nreverse dirs)))))