From b7b75652ce04e313006e3f2d63c4b4f5562b1226 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 30 Oct 1998 09:54:37 +0000 Subject: [PATCH] Write fns-*.el in current directory instead of data-directory since no installation directory exists yet. Mark buffer unmodified afterwards. --- lisp/loadup.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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) -- 2.39.2