From 0412d833601f074eb6b39cfdb298e098eff69f3c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 11 May 1998 01:17:48 +0000 Subject: [PATCH] (normal-top-level-add-subdirs-to-load-path): Ignore subdirectories whose names start with nonalphanumeric or that have a file called .nosearch. --- lisp/startup.el | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) 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))))) -- 2.39.2