Mercurial > emacs
changeset 23575:6df77402dfd4
Write fns-*.el in current directory instead of
data-directory since no installation directory exists yet. Mark
buffer unmodified afterwards.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Fri, 30 Oct 1998 09:54:37 +0000 |
| parents | c8ba21ef69c4 |
| children | 00ee2e0c8976 |
| files | lisp/loadup.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)