guile feature

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

diff --git a/lisp/loadup.el b/lisp/loadup.el
index eca284a..59efb94 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -79,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)))
@@ -92,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")
@@ -117,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
@@ -141,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")
@@ -159,6 +178,8 @@
 (load "international/characters")
 (load "composite")
 
+(load "international/ccl")
+
 ;; Load language-specific files.
 (load "language/chinese")
 (load "language/cyrillic")
@@ -218,6 +239,7 @@
 
 (load "replace")
 (load "emacs-lisp/tabulated-list")
+(load "kmacro")
 (load "buff-menu")
 
 (if (fboundp 'x-create-frame)