From 537b6e4e55b8e0b7c402cdff98e434cc4ec0c0f5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 21 May 1998 20:32:09 +0000 Subject: [PATCH] Comment change. --- lisp/startup.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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'." (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))) -- 2.39.2