diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-06-30 10:38:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-06-30 10:38:03 +0000 |
| commit | 6a4803ec738ba800eab12bf776c38f1b5345c2d7 (patch) | |
| tree | 225d97686e9033ea212b6edfae793af2ad927900 /lisp/loadup.el | |
| parent | b693e375218475627dbc4ecd28993165c237cc93 (diff) | |
| download | emacs-6a4803ec738ba800eab12bf776c38f1b5345c2d7.tar.gz | |
(pure-space-overflow): Set it if overflow.
Diffstat (limited to 'lisp/loadup.el')
| -rw-r--r-- | lisp/loadup.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 4b525158947..f0ce160c666 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -301,6 +301,9 @@ ;;; At this point, we're ready to resume undo recording for scratch. (buffer-enable-undo "*scratch*") +(if (null (garbage-collect)) + (setq pure-space-overflow t)) + (if (or (member (nth 3 command-line-args) '("dump" "bootstrap")) (member (nth 4 command-line-args) '("dump" "bootstrap"))) (if (eq system-type 'vax-vms) |