Mercurial > emacs
changeset 22176:050c1872b04b
Comment change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 21 May 1998 20:32:09 +0000 |
| parents | 0a2e8ec2a766 |
| children | 306578297d44 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Thu May 21 14:26:10 1998 +0000 +++ b/lisp/startup.el Thu May 21 20:32:09 1998 +0000 @@ -361,7 +361,11 @@ (setq contents (cdr contents))))) (normal-top-level-add-to-load-path (cdr (nreverse dirs))))) -;; This function is called from the subdirs.el file. +;; This function is called from a subdirs.el file. +;; It assumes that default-directory is the directory +;; in which the subdirs.el file exists, +;; and it adds to load-path the subdirs of that directory +;; as specified in DIRS. Normally the elements of DIRS are relative. (defun normal-top-level-add-to-load-path (dirs) (let ((tail load-path) (thisdir (directory-file-name default-directory)))