mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Comment change.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-05-21 20:32:09 +00:00
parent 3096684711
commit 537b6e4e55
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/startup.el
View File

@ -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)))