From c2509060c71edf5ba17d10e2360b03b3b5ecb325 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 21 Sep 1998 16:33:18 +0000 Subject: [PATCH] Write load-history into etc/fns-VERSION.el, then clear it. --- lisp/loadup.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/lisp/loadup.el b/lisp/loadup.el index cbc1ba5c314..79b812c2ba3 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -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. -- 2.39.2