diff options
| author | Richard M. Stallman | 1998-05-21 20:32:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-21 20:32:09 +0000 |
| commit | 537b6e4e55b8e0b7c402cdff98e434cc4ec0c0f5 (patch) | |
| tree | 802039ba41513f460a5a0d66ce56f35fd8b25b41 | |
| parent | 3096684711648eea84af4061bf769f0692af8f60 (diff) | |
| download | emacs-537b6e4e55b8e0b7c402cdff98e434cc4ec0c0f5.tar.gz emacs-537b6e4e55b8e0b7c402cdff98e434cc4ec0c0f5.zip | |
Comment change.
| -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))) |