From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 16 Oct 1994 06:17:57 +0000 (+0000)
Subject: Delete code to write subdirs.el.
X-Git-Tag: emacs-19.34~6301
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0b1ed3b65d8d32dceb8fbb0d7ad008a86b1c13a;p=emacs.git

Delete code to write subdirs.el.
---

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