Mercurial > emacs
changeset 23286:3ccc2a1aa6fa
Write load-history into etc/fns-VERSION.el, then clear it.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 21 Sep 1998 16:33:18 +0000 |
| parents | 76798d29cb2b |
| children | bf60e2b4da28 |
| files | lisp/loadup.el |
| diffstat | 1 files changed, 21 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadup.el Mon Sep 21 16:32:55 1998 +0000 +++ b/lisp/loadup.el Mon Sep 21 16:33:18 1998 +0000 @@ -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.