Mercurial > emacs
comparison lisp/loadup.el @ 51699:9603cfeea5a5
(pure-space-overflow): Set it if overflow.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 30 Jun 2003 10:37:18 +0000 |
| parents | abad152707e5 |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 51698:92ed57f99b98 | 51699:9603cfeea5a5 |
|---|---|
| 299 (garbage-collect) | 299 (garbage-collect) |
| 300 | 300 |
| 301 ;;; At this point, we're ready to resume undo recording for scratch. | 301 ;;; At this point, we're ready to resume undo recording for scratch. |
| 302 (buffer-enable-undo "*scratch*") | 302 (buffer-enable-undo "*scratch*") |
| 303 | 303 |
| 304 (if (null (garbage-collect)) | |
| 305 (setq pure-space-overflow t)) | |
| 306 | |
| 304 (if (or (member (nth 3 command-line-args) '("dump" "bootstrap")) | 307 (if (or (member (nth 3 command-line-args) '("dump" "bootstrap")) |
| 305 (member (nth 4 command-line-args) '("dump" "bootstrap"))) | 308 (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
| 306 (if (eq system-type 'vax-vms) | 309 (if (eq system-type 'vax-vms) |
| 307 (progn | 310 (progn |
| 308 (message "Dumping data as file temacs.dump") | 311 (message "Dumping data as file temacs.dump") |