From: Andreas Schwab <schwab@suse.de>
Date: Fri, 30 Oct 1998 09:54:37 +0000 (+0000)
Subject: Write fns-*.el in current directory instead of
X-Git-Tag: emacs-20.4~1374
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7b75652ce04e313006e3f2d63c4b4f5562b1226;p=emacs.git

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 79b812c2ba3..262f4c1e92c 100644
--- 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)