From 838d57f61626f1b7c081aca3e4771b73e680fc9e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 May 1998 20:56:22 +0000 Subject: [PATCH] (loaddefs.el): Load it earlier, and GC before and after and a few more times later on. --- lisp/loadup.el | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) 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, -- 2.39.2