# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 909741277 0
# Node ID 6df77402dfd42f035f4b298e10922eb0436aeafe
# Parent  c8ba21ef69c46e0656d0f7f2e4cf3917821c1549
Write fns-*.el in current directory instead of
data-directory since no installation directory exists yet.  Mark
buffer unmodified afterwards.

diff -r c8ba21ef69c4 -r 6df77402dfd4 lisp/loadup.el
--- a/lisp/loadup.el	Fri Oct 30 09:53:51 1998 +0000
+++ b/lisp/loadup.el	Fri Oct 30 09:54:37 1998 +0000
@@ -210,8 +210,8 @@
 (load "site-init" t)
 (setq current-load-list nil)
 
-;; Write the value of load-history into etc/LOADHIST.el,
-;; the clear out load-history.
+;; Write the value of load-history into fns-VERSION.el,
+;; then clear out load-history.
 (let ((buffer-undo-list t))
   (princ "(setq load-history\n" (current-buffer))
   (princ "      (nconc load-history\n" (current-buffer))
@@ -223,12 +223,12 @@
       (if (cdr tem)
 	  (princ "               " (current-buffer)))
       (setq tem (cdr tem))))
-  (princ ")))" (current-buffer))
+  (princ ")))\n" (current-buffer))
   (write-region (point-min) (point-max)
-		(expand-file-name (format "fns-%s.el" emacs-version)
-				  data-directory))
+		(expand-file-name (format "fns-%s.el" emacs-version)))
   (erase-buffer))
 (setq load-history nil)
+(set-buffer-modified-p nil)
 
 (garbage-collect)