From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 26 May 1998 20:56:22 +0000 (+0000)
Subject: (loaddefs.el): Load it earlier, and GC before and after
X-Git-Tag: emacs-20.3~819
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=838d57f61626f1b7c081aca3e4771b73e680fc9e;p=emacs.git

(loaddefs.el): Load it earlier, and GC before and after
and a few more times later on.
---

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 13d2cdab30e..8113b573739 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -56,6 +56,11 @@
 (load "international/mule-cmds")
 (load "case-table")
 (load "international/characters")
+
+(message "%s" (garbage-collect))
+(load "loaddefs.el")  ;Don't get confused if someone compiled this by mistake.
+(message "%s" (garbage-collect))
+
 (let ((set-case-syntax-set-multibyte t))
   (load "international/latin-1")
   (load "international/latin-2")
@@ -83,6 +88,7 @@
 (load "language/vietnamese")
 (load "language/misc-lang")
 (update-iso-coding-systems)
+
 (load "indent")
 (load "isearch")
 (load "window")
@@ -96,6 +102,8 @@
       (load "mouse")
       (load "scroll-bar")
       (load "select")))
+
+(message "%s" (garbage-collect))
 (load "menu-bar")
 (load "paths.el")  ;Don't get confused if someone compiled paths by mistake.
 (load "startup")
@@ -106,7 +114,8 @@
 (load "emacs-lisp/lisp-mode")
 (load "textmodes/text-mode")
 (load "textmodes/fill")
-(garbage-collect)
+(message "%s" (garbage-collect))
+
 (load "replace")
 (if (eq system-type 'vax-vms)
     (progn
@@ -132,12 +141,11 @@
 (if (fboundp 'atan)	; preload some constants and 
     (progn		; floating pt. functions if we have float support.
       (load "float-sup")))
-(garbage-collect)
-(load "loaddefs.el")  ;Don't get confused if someone compiled this by mistake.
+(message "%s" (garbage-collect))
 
-(garbage-collect)
 (load "vc-hooks")
 (load "ediff-hook")
+(message "%s" (garbage-collect))
 
 ;If you want additional libraries to be preloaded and their
 ;doc strings kept in the DOC file rather than in core,