Mercurial > emacs
changeset 22024:bf37812dd6bb
(normal-top-level-add-subdirs-to-load-path):
Ignore subdirectories whose names start with nonalphanumeric
or that have a file called .nosearch.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 11 May 1998 01:17:48 +0000 |
| parents | 8c00a2d112cc |
| children | 369ac7fae774 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Mon May 11 01:14:36 1998 +0000 +++ b/lisp/startup.el Mon May 11 01:17:48 1998 +0000 @@ -334,7 +334,10 @@ (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 @@ (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)))))