mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1998-09-21 16:33:18 +00:00
parent 1cc0e30789
commit c2509060c7
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/loadup.el
View File

@ -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.