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

(normal-top-level-add-to-load-path): New function.

Browse Source 
(normal-top-level): Load subdirs.el in each dir in load-path.
This commit is contained in:
Richard M. Stallman 1994-10-11 08:22:38 +00:00
parent e463652882
commit e87a730999
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/startup.el
View File

@ -160,10 +160,25 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
(defvar init-file-had-error nil)
;; This function is called from the subdirs.el file.
(defun normal-top-level-add-to-load-path (dirs)
(let ((tail (member default-directory load-path)))
(setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail)))))
(defun normal-top-level ()
(if command-line-processed
(message "Back to top level.")
(setq command-line-processed t)
;; Look in each dir in load-path for a subdirs.el file.
;; If we find one, load it, which will add the appropriate subdirs
;; of that dir into load-path,
(let ((tail load-path)
new)
(while tail
(setq new (cons (car tail) new))
(let ((default-directory (car tail)))
(load (expand-file-name "subdirs.el" (car tail)) t t t))
(setq tail (cdr tail))))
(if (not (eq system-type 'vax-vms))
(progn
;; If the PWD environment variable isn't accurate, delete it.