guile feature

[bpt/emacs.git] / lisp / loadup.el

diff --git a/lisp/loadup.el b/lisp/loadup.el
index b911e9f..59efb94 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -63,10 +63,6 @@
                            (expand-file-name "textmodes" dir)
                            (expand-file-name "vc" dir)))))
 
-(if (eq t purify-flag)
-    ;; Hash consing saved around 11% of pure space in my tests.
-    (setq purify-flag (make-hash-table :test 'equal :size 70000)))
-
 (message "Using load-path %s" load-path)
 
 ;; This is a poor man's `last', since we haven't loaded subr.el yet.
@@ -83,10 +79,16 @@
 (set-buffer "*scratch*")
 (setq buffer-undo-list t)
 
+(%set-eager-macroexpansion-mode nil)
+
 (load "emacs-lisp/byte-run")
 (load "emacs-lisp/backquote")
 (load "subr")
 
+
+(load "international/mule")
+(load "international/mule-conf")
+
 ;; 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)))
@@ -96,8 +98,6 @@
 (load "widget")
 (load "custom")
 (load "emacs-lisp/map-ynp")
-(load "international/mule")
-(load "international/mule-conf")
 (load "env")
 (load "format")
 (load "bindings")
@@ -121,12 +121,18 @@
   ;; Re-load macroexp so as to eagerly macro-expand its uses of pcase.
   (load "emacs-lisp/macroexp"))
 
+(%set-eager-macroexpansion-mode t)
+
+(load "emacs-lisp/gv")
+
 (load "cus-face")
 (load "faces")  ; after here, `defface' may be used.
 
 (load "button")
 (load "startup")
 
+(load "subr2")
+
 ;; We don't want to store loaddefs.el in the repository because it is
 ;; a generated file; but it is required in order to compile the lisp files.
 ;; When bootstrapping, we cannot generate loaddefs.el until an
@@ -145,11 +151,20 @@
   (file-error (load "ldefs-boot.el")))
 
 (load "emacs-lisp/nadvice")
+(load "emacs-lisp/derived")
+(load "emacs-lisp/easy-mmode")
 (load "minibuffer")
 (load "abbrev")         ;lisp-mode.el and simple.el use define-abbrev-table.
 (load "simple")
 
+(load "emacs-lisp/cl-lib")
+(load "emacs-lisp/cl-macs")
+
+(load "help-macro")
 (load "help")
+(load "help-fns")
+
+(load "faces2")
 
 (load "jka-cmpr-hook")
 (load "epa-hook")
@@ -163,6 +178,8 @@
 (load "international/characters")
 (load "composite")
 
+(load "international/ccl")
+
 ;; Load language-specific files.
 (load "language/chinese")
 (load "language/cyrillic")
@@ -222,6 +239,7 @@
 
 (load "replace")
 (load "emacs-lisp/tabulated-list")
+(load "kmacro")
 (load "buff-menu")
 
 (if (fboundp 'x-create-frame)
@@ -350,8 +368,6 @@ lost after dumping")))
       (message "Warning: Change in load-path due to site-init will be \
 lost after dumping")))
 
-(setq current-load-list nil)
-
 ;; We keep the load-history data in PURE space.
 ;; Make sure that the spine of the list is not in pure space because it can
 ;; be destructively mutated in lread.c:build_load_history.