Mercurial > emacs
comparison lisp/loadup.el @ 9553:6cf77973c97f
Delete code to write subdirs.el.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 16 Oct 1994 06:17:57 +0000 |
parents | 64a4d29fb831 |
children | b36d5e88cccc |
comparison
equal
deleted
inserted
replaced
9552:c1d477aec340 | 9553:6cf77973c97f |
---|---|
29 | 29 |
30 (message "Using load-path %s" load-path) | 30 (message "Using load-path %s" load-path) |
31 | 31 |
32 ;;; We don't want to have any undo records in the dumped Emacs. | 32 ;;; We don't want to have any undo records in the dumped Emacs. |
33 (buffer-disable-undo "*scratch*") | 33 (buffer-disable-undo "*scratch*") |
34 | |
35 ;; Write a file subdirs.el into the Lisp directory | |
36 ;; containing the names of the subdirs of that directory | |
37 ;; which we should check for Lisp files. | |
38 (message "Writing subdirs.el...") | |
39 (let ((files (directory-files "../lisp/" nil nil t)) | |
40 new) | |
41 (while files | |
42 (if (and (null (member (car files) '("." ".." "term" "RCS"))) | |
43 (null (string-match "\\.elc?$" (car files))) | |
44 (file-directory-p (expand-file-name (car files) "../lisp/"))) | |
45 (setq new (cons (car files) new))) | |
46 (setq files (cdr files))) | |
47 (insert ";; In load-path, after this directory should come\n") | |
48 (insert ";; certain of its subdirectories. Here we specify them.\n") | |
49 (prin1 (list 'normal-top-level-add-to-load-path | |
50 (list 'quote new)) (current-buffer)) | |
51 (write-region (point-min) (point-max) | |
52 (expand-file-name "subdirs.el" "../lisp/")) | |
53 (erase-buffer)) | |
54 | 34 |
55 (load "subr") | 35 (load "subr") |
56 (garbage-collect) | 36 (garbage-collect) |
57 (load "byte-run") | 37 (load "byte-run") |
58 (garbage-collect) | 38 (garbage-collect) |