Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0e328d37
Commit
0e328d37
authored
Sep 15, 2009
by
Stefan Monnier
Browse files
Use after-load-functions to GC after loading each file.
Remove the explicit GC calls that used to be sprinkled around.
parent
428b13d6
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
15 deletions
+11
-15
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/loadup.el
lisp/loadup.el
+8
-15
No files found.
lisp/ChangeLog
View file @
0e328d37
2009-09-15 Stefan Monnier <monnier@iro.umontreal.ca>
* loadup.el: Use after-load-functions to GC after loading each file.
Remove the explicit GC calls that used to be sprinkled around.
* subr.el (after-load-functions): New hook.
(do-after-load-evaluation): Run it. Use string-match-p to detect
`obsolete' packages, rather than painfully extracting the relevant
...
...
lisp/loadup.el
View file @
0e328d37
...
...
@@ -60,6 +60,10 @@
(
load
"emacs-lisp/backquote"
)
(
load
"subr"
)
;; Do it after subr, since both after-load-functions and add-hook are
;; implemented in subr.el.
(
add-hook
'after-load-functions
'
(
lambda
(
f
)
(
garbage-collect
)))
;; We specify .el in case someone compiled version.el by mistake.
(
load
"version.el"
)
...
...
@@ -82,17 +86,12 @@
(
load
"button"
)
(
load
"startup"
)
(
message
"Lists of integers (garbage collection statistics) are normal output"
)
(
message
"while building Emacs; they do not indicate a problem."
)
(
message
"%s"
(
garbage-collect
))
(
condition-case
nil
;; Don't get confused if someone compiled this by mistake.
(
load
"loaddefs.el"
)
;; In case loaddefs hasn't been generated yet.
(
file-error
(
load
"ldefs-boot.el"
)))
(
message
"%s"
(
garbage-collect
))
(
load
"abbrev"
)
;lisp-mode.el and simple.el use define-abbrev-table.
(
load
"simple"
)
...
...
@@ -159,7 +158,6 @@
(
load
"isearch"
)
(
load
"rfn-eshadow"
)
(
message
"%s"
(
garbage-collect
))
(
load
"menu-bar"
)
(
load
"paths.el"
)
;Don't get confused if someone compiled paths by mistake.
(
load
"emacs-lisp/lisp"
)
...
...
@@ -169,7 +167,6 @@
(
load
"emacs-lisp/lisp-mode"
)
(
load
"textmodes/text-mode"
)
(
load
"textmodes/fill"
)
(
message
"%s"
(
garbage-collect
))
(
load
"replace"
)
(
load
"buff-menu"
)
...
...
@@ -187,8 +184,6 @@
(
load
"term/common-win"
)
(
load
"term/x-win"
)))
(
message
"%s"
(
garbage-collect
))
(
if
(
eq
system-type
'windows-nt
)
(
progn
(
load
"w32-vars"
)
...
...
@@ -219,22 +214,18 @@
(
if
(
fboundp
'atan
)
; preload some constants and
(
progn
; floating pt. functions if we have float support.
(
load
"emacs-lisp/float-sup"
)))
(
message
"%s"
(
garbage-collect
))
(
load
"vc-hooks"
)
(
load
"ediff-hook"
)
(
if
(
fboundp
'x-show-tip
)
(
load
"tooltip"
))
(
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,
;you may load them with a "site-load.el" file.
;But you must also cause them to be scanned when the DOC file
;is generated.
;For other systems, you must edit ../src/Makefile.in.
(
if
(
load
"site-load"
t
)
(
garbage-collect
))
(
load
"site-load"
t
)
;; Determine which last version number to use
;; based on the executables that now exist.
...
...
@@ -327,11 +318,13 @@
(
equal
(
nth
4
command-line-args
)
"bootstrap"
))
(
setcdr
load-path
nil
))
(
remove-hook
'after-load-functions
'
(
lambda
(
f
)
(
garbage-collect
)))
(
setq
inhibit-load-charset-map
nil
)
(
clear-charset-maps
)
(
garbage-collect
)
;;
;
At this point, we're ready to resume undo recording for scratch.
;; At this point, we're ready to resume undo recording for scratch.
(
buffer-enable-undo
"*scratch*"
)
(
if
(
null
(
garbage-collect
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment