Mercurial > emacs
changeset 9512:b2aaf43191aa
Move the subdirs.el up to near first thing.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Oct 1994 07:54:56 +0000 |
| parents | 3b5dbd9c44f5 |
| children | 76ce1230257f |
| files | lisp/loadup.el |
| diffstat | 1 files changed, 20 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadup.el Thu Oct 13 07:40:50 1994 +0000 +++ b/lisp/loadup.el Thu Oct 13 07:54:56 1994 +0000 @@ -32,6 +32,26 @@ ;;; We don't want to have any undo records in the dumped Emacs. (buffer-disable-undo "*scratch*") +;; Write a file subdirs.el into the Lisp directory +;; containing the names of the subdirs of that directory +;; which we should check for Lisp files. +(message "Writing subdirs.el...") +(let ((files (directory-files "../lisp/" nil nil t)) + new) + (while files + (if (and (null (member (car files) '("." ".." "term" "RCS"))) + (null (string-match "\\.elc?$" (car files))) + (file-directory-p (expand-file-name (car files) "../lisp/"))) + (setq new (cons (car files) new))) + (setq files (cdr files))) + (insert ";; In load-path, after this directory should come\n") + (insert ";; certain of its subdirectories. Here we specify them.\n") + (prin1 (list 'normal-top-level-add-to-load-path + (list 'quote new)) (current-buffer)) + (write-region (point-min) (point-max) + (expand-file-name "subdirs.el" "../lisp/")) + (erase-buffer)) + (load "subr") (garbage-collect) (load "byte-run") @@ -114,27 +134,6 @@ (garbage-collect) (load "vc-hooks") -;; Write a file subdirs.el into the Lisp directory -;; containing the names of the subdirs of that directory -;; which we should check for Lisp files. -(message "Writing subdirs.el...") -(let ((files (directory-files "../lisp/" nil nil t)) - (buffer-undo-list t) - new) - (while files - (if (and (not (member (car files) '("." ".." "term" "RCS"))) - (not (string-match "\\.elc?$" (car files))) - (file-directory-p (expand-file-name (car files) "../lisp/"))) - (setq new (cons (car files) new))) - (setq files (cdr files))) - (insert ";; In load-path, after this directory should come\n") - (insert ";; certain of its subdirectories. Here we specify them.\n") - (prin1 (list 'normal-top-level-add-to-load-path - (list 'quote new)) (current-buffer)) - (write-region (point-min) (point-max) - (expand-file-name "subdirs.el" "../lisp/")) - (erase-buffer)) - ;; We specify .el in case someone compiled version.el by mistake. (load "version.el")