procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Delete most calls to garbage-collect.

Browse source
This commit is contained in:
Richard M. Stallman 1997-08-15 19:24:41 +00:00
parent 02c33131c7
commit 63abf6122e
1 changed files with 3 additions and 63 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

66
lisp/loadup.el
View file

@ -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.