* src/eval.c (Fbind_symbol): New function.

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

diff --git a/lisp/loadup.el b/lisp/loadup.el
index b911e9f..eca284a 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.
@@ -350,8 +346,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.