Delete most calls to garbage-collect.

1 files changed, 3 insertions, 63 deletions

diff --git a/lisp/loadup.el b/lisp/loadup.el
index b1160483f1a..15c9c8725f1 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -38,37 +38,23 @@
 ;; We specify .el in case someone compiled version.el by mistake.
 (load "version.el")
 
-(garbage-collect)
 (load "byte-run")
-(garbage-collect)
 (load "map-ynp")
-(garbage-collect)
 (load "widget")
-(garbage-collect)
 (load "custom")
 (load "cus-start")
-(garbage-collect)
 (load "international/mule")
-(garbage-collect)
 (load "international/mule-conf.el") ;Don't get confused if someone compiled this by mistake.
-(garbage-collect)
 (load "bindings")
 (setq load-source-file-function 'load-with-code-conversion)
-(garbage-collect)
 (load "simple")
-(garbage-collect)
 (load "help")
-(garbage-collect)
 (load "files")
-(garbage-collect)
 (load "format")
 ;; Any Emacs Lisp source file (*.el) loaded here after can contain
 ;; multilingual text.
-(garbage-collect)
 (load "international/mule-cmds")
-(garbage-collect)
 (load "international/characters")
-(garbage-collect)
 (load "case-table")
 (let ((set-case-syntax-set-multibyte t))
   (load "international/latin-1")
@@ -76,116 +62,70 @@
   (load "international/latin-3")
   (load "international/latin-4")
   (load "international/latin-5"))
-(garbage-collect)
 ;; Load langauge specific files.
 (load "language/chinese")
-(garbage-collect)
 (load "language/cyrillic")
-(garbage-collect)
 (load "language/indian")
-(garbage-collect)
 (load "language/devanagari")            ; This should be loaded after indian.
-(garbage-collect)
 (load "language/english")
-(garbage-collect)
 (load "language/ethiopic")
-(garbage-collect)
 (load "language/european")
-(garbage-collect)
 (load "language/greek")
-(garbage-collect)
 (load "language/hebrew")
-(garbage-collect)
 (load "language/japanese")
-(garbage-collect)
 (load "language/korean")
-(garbage-collect)
 (load "language/lao")
-(garbage-collect)
 (load "language/thai")
-(garbage-collect)
 (load "language/tibetan")
-(garbage-collect)
 (load "language/vietnamese")
-(garbage-collect)
 (load "language/misc-lang")
-(garbage-collect)
 (load "indent")
-(garbage-collect)
 (load "isearch")
-(garbage-collect)
 (load "window")
-(garbage-collect)
 (load "frame")
-(garbage-collect)
 (load "faces")
 (if (fboundp 'frame-face-alist)
     (progn
       (load "facemenu")))
 (if (fboundp 'track-mouse)
     (progn
-      (garbage-collect)
       (load "mouse")
-      (garbage-collect)
       (load "scroll-bar")
       (load "select")))
 (load "menu-bar")
-(garbage-collect)
 (load "paths.el")  ;Don't get confused if someone compiled paths by mistake.
-(garbage-collect)
 (load "startup")
-(garbage-collect)
 (load "emacs-lisp/lisp")
-(garbage-collect)
 (load "textmodes/page")
-(garbage-collect)
 (load "register")
-(garbage-collect)
 (load "textmodes/paragraphs")
-(garbage-collect)
 (load "emacs-lisp/lisp-mode")
-(garbage-collect)
 (load "textmodes/text-mode")
-(garbage-collect)
 (load "textmodes/fill")
 (garbage-collect)
 (load "replace")
 (if (eq system-type 'vax-vms)
     (progn
-      (garbage-collect)
       (load "vmsproc")))
-(garbage-collect)
 (load "abbrev")
-(garbage-collect)
 (load "buff-menu")
 (if (eq system-type 'vax-vms)
     (progn
-      (garbage-collect)
       (load "vms-patch")))
 (if (eq system-type 'windows-nt)
     (progn
-      (garbage-collect)
       (load "ls-lisp")
-      (garbage-collect)
       (load "disp-table") ; needed to setup ibm-pc char set, see internal.el
-      (garbage-collect)
       (load "dos-w32")
-      (garbage-collect)
-      (load "w32-fns")
-      (garbage-collect)))
+      (load "w32-fns")))
 (if (eq system-type 'ms-dos)
     (progn
       (load "ls-lisp")
-      (garbage-collect)
       (load "dos-w32")
-      (garbage-collect)
       (load "dos-fns")
-      (garbage-collect)
-      (load "disp-table") ; needed to setup ibm-pc char set, see internal.el
-      (garbage-collect)))
+      (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el
 (if (fboundp 'atan)     ; preload some constants and 
-    (progn              ; floating pt. functions if 
-      (garbage-collect) ; we have float support.
+    (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.