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