Mercurial > emacs
diff lisp/startup.el @ 22176:050c1872b04b
Comment change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 21 May 1998 20:32:09 +0000 |
parents | 7b2a57ff032a |
children | 979317421863 |
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)))