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

Move the subdirs.el up to near first thing.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-10-13 07:54:56 +00:00
parent 991c70f894
commit f5c646161d
1 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lisp/loadup.el
View File

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