Mercurial > emacs
comparison lisp/loadup.el @ 24574:baecd14c2bb2
Don't write the fns-...el file if not dumping.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 06 Apr 1999 19:51:57 +0000 |
parents | bc08f49b275f |
children | 6cfda8d96aea |
comparison
equal
deleted
inserted
replaced
24573:aa24b1cb428a | 24574:baecd14c2bb2 |
---|---|
210 (load "site-init" t) | 210 (load "site-init" t) |
211 (setq current-load-list nil) | 211 (setq current-load-list nil) |
212 | 212 |
213 ;; Write the value of load-history into fns-VERSION.el, | 213 ;; Write the value of load-history into fns-VERSION.el, |
214 ;; then clear out load-history. | 214 ;; then clear out load-history. |
215 (let ((buffer-undo-list t)) | 215 (if (or (equal (nth 3 command-line-args) "dump") |
216 (princ "(setq load-history\n" (current-buffer)) | 216 (equal (nth 4 command-line-args) "dump")) |
217 (princ " (nconc load-history\n" (current-buffer)) | 217 (let ((buffer-undo-list t)) |
218 (princ " '(" (current-buffer)) | 218 (princ "(setq load-history\n" (current-buffer)) |
219 (let ((tem load-history)) | 219 (princ " (nconc load-history\n" (current-buffer)) |
220 (while tem | 220 (princ " '(" (current-buffer)) |
221 (prin1 (car tem) (current-buffer)) | 221 (let ((tem load-history)) |
222 (terpri (current-buffer)) | 222 (while tem |
223 (if (cdr tem) | 223 (prin1 (car tem) (current-buffer)) |
224 (princ " " (current-buffer))) | 224 (terpri (current-buffer)) |
225 (setq tem (cdr tem)))) | 225 (if (cdr tem) |
226 (princ ")))\n" (current-buffer)) | 226 (princ " " (current-buffer))) |
227 (write-region (point-min) (point-max) | 227 (setq tem (cdr tem)))) |
228 (expand-file-name | 228 (princ ")))\n" (current-buffer)) |
229 (cond | 229 (write-region (point-min) (point-max) |
230 ((eq system-type 'ms-dos) | 230 (expand-file-name |
231 "../lib-src/fns.el") | 231 (cond |
232 ((eq system-type 'windows-nt) | 232 ((eq system-type 'ms-dos) |
233 (format "../../../lib-src/fns-%s.el" emacs-version)) | 233 "../lib-src/fns.el") |
234 (t | 234 ((eq system-type 'windows-nt) |
235 (format "../lib-src/fns-%s.el" emacs-version))) | 235 (format "../../../lib-src/fns-%s.el" emacs-version)) |
236 invocation-directory)) | 236 (t |
237 (erase-buffer)) | 237 (format "../lib-src/fns-%s.el" emacs-version))) |
238 (setq load-history nil) | 238 invocation-directory)) |
239 (erase-buffer) | |
240 (setq load-history nil)) | |
241 (setq symbol-file-load-history-loaded t)) | |
239 (set-buffer-modified-p nil) | 242 (set-buffer-modified-p nil) |
240 | 243 |
241 (garbage-collect) | 244 (garbage-collect) |
242 | 245 |
243 ;;; At this point, we're ready to resume undo recording for scratch. | 246 ;;; At this point, we're ready to resume undo recording for scratch. |