Write fns-*.el in current directory instead of

data-directory since no installation directory exists yet.  Mark
buffer unmodified afterwards.

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 79b812c2ba393c9b3834fd0ce15903bb79eddb03..262f4c1e92c7d35594e6e250ce93c1b1693ab317 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -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)