mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Write fns-*.el in current directory instead of

Browse Source 
data-directory since no installation directory exists yet.  Mark
buffer unmodified afterwards.
This commit is contained in:
Andreas Schwab 1998-10-30 09:54:37 +00:00
parent 5f15b2efed
commit b7b75652ce
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/loadup.el
View File

@ -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)