(choose-completion-string): Use `minibufferp';

[gnu-emacs] / lisp / loadup.el

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 4b52515894759bdad1647bd0a4befe5ef5c6276b..f0ce160c66691bfd300d5d94d845b98e2c048676 100644 (file)
--- 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)