diff options
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index c67fa8b6762..9aef3420dce 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -361,7 +361,11 @@ and any subdirectory that contains a file named `.nosearch'." | |||
| 361 | (setq contents (cdr contents))))) | 361 | (setq contents (cdr contents))))) |
| 362 | (normal-top-level-add-to-load-path (cdr (nreverse dirs))))) | 362 | (normal-top-level-add-to-load-path (cdr (nreverse dirs))))) |
| 363 | 363 | ||
| 364 | ;; This function is called from the subdirs.el file. | 364 | ;; This function is called from a subdirs.el file. |
| 365 | ;; It assumes that default-directory is the directory | ||
| 366 | ;; in which the subdirs.el file exists, | ||
| 367 | ;; and it adds to load-path the subdirs of that directory | ||
| 368 | ;; as specified in DIRS. Normally the elements of DIRS are relative. | ||
| 365 | (defun normal-top-level-add-to-load-path (dirs) | 369 | (defun normal-top-level-add-to-load-path (dirs) |
| 366 | (let ((tail load-path) | 370 | (let ((tail load-path) |
| 367 | (thisdir (directory-file-name default-directory))) | 371 | (thisdir (directory-file-name default-directory))) |