diff options
| author | Andreas Schwab <schwab@suse.de> | 1998-10-30 09:54:37 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 1998-10-30 09:54:37 +0000 |
| commit | b7b75652ce04e313006e3f2d63c4b4f5562b1226 (patch) | |
| tree | fa1a7812bd3c3eafb2352609d2a2a691b09234d5 | |
| parent | 5f15b2efede1c8cb0079ca3e265e185288d9a842 (diff) | |
| download | emacs-b7b75652ce04e313006e3f2d63c4b4f5562b1226.tar.gz | |
Write fns-*.el in current directory instead of
data-directory since no installation directory exists yet. Mark
buffer unmodified afterwards.
| -rw-r--r-- | lisp/loadup.el | 10 |
1 files 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) |