diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-10-16 06:17:57 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-10-16 06:17:57 +0000 |
commit | c8dd1c92d193b34e9b84ef12b023eb56594acbc9 (patch) | |
tree | 1fcb51d12ec358fd60ba54af6c34dc8694579aff /lisp/loadup.el | |
parent | 0e35f0267823a4b617d94d349cd0c2b757371ac4 (diff) | |
download | emacs-c8dd1c92d193b34e9b84ef12b023eb56594acbc9.tar.gz |
Delete code to write subdirs.el.
Diffstat (limited to 'lisp/loadup.el')
-rw-r--r-- | lisp/loadup.el | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 0170e0f7cce..7b8f8922059 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -32,26 +32,6 @@ ;;; 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") |