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. |