(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.
(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)))
(load "widget")
(load "custom")
(load "emacs-lisp/map-ynp")
-(load "international/mule")
-(load "international/mule-conf")
(load "env")
(load "format")
(load "bindings")
;; 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
(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")
(load "international/characters")
(load "composite")
+(load "international/ccl")
+
;; Load language-specific files.
(load "language/chinese")
(load "language/cyrillic")
(load "replace")
(load "emacs-lisp/tabulated-list")
+(load "kmacro")
(load "buff-menu")
(if (fboundp 'x-create-frame)
(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.