From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 21 Sep 1998 16:33:18 +0000 (+0000)
Subject: Write load-history into etc/fns-VERSION.el, then clear it.
X-Git-Tag: emacs-20.4~1663
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2509060c71edf5ba17d10e2360b03b3b5ecb325;p=emacs.git

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

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.