Commit c2509060 authored by Karl Heuer's avatar Karl Heuer
Browse files

Write load-history into etc/fns-VERSION.el, then clear it.

parent 1cc0e307
......@@ -209,6 +209,27 @@
;;;See also "site-load" above.
(load "site-init" t)
(setq current-load-list nil)
;; Write the value of load-history into etc/LOADHIST.el,
;; the clear out load-history.
(let ((buffer-undo-list t))
(princ "(setq load-history\n" (current-buffer))
(princ " (nconc load-history\n" (current-buffer))
(princ " '(" (current-buffer))
(let ((tem load-history))
(while tem
(prin1 (car tem) (current-buffer))
(terpri (current-buffer))
(if (cdr tem)
(princ " " (current-buffer)))
(setq tem (cdr tem))))
(princ ")))" (current-buffer))
(write-region (point-min) (point-max)
(expand-file-name (format "fns-%s.el" emacs-version)
data-directory))
(erase-buffer))
(setq load-history nil)
(garbage-collect)
;;; At this point, we're ready to resume undo recording for scratch.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment