(pure-space-overflow): Set it if overflow.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65ad59469be81125e35e3c6e1b960596f7f052b3..d2075f23ce378021f3fb57cb399556aea187d38f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,23 @@
+2003-06-30  Richard M. Stallman  <rms@gnu.org>
+
+       * loadup.el (pure-space-overflow): Set it if overflow.
+
+       * startup.el (pure-space-overflow): New variable.
+       (fancy-splash-screens-1): Display warning if overflow.
+       (normal-splash-screen): Likewise.
+
+       * vc.el (vc-default-show-log-entry): Use with-no-warnings.
+
+       * subr.el (lazy-completion-table, dynamic-completion-table):
+       New macros.
+
+2003-06-28  Richard M. Stallman  <rms@gnu.org>
+
+       * menu-bar.el (menu-bar-options-menu): Move mouse-set-fonts item here.
+
+       * international/mule-cmds.el (mule-menu-keymap): Delete
+       mouse-set-fonts item here.
+
 2003-06-29  Nick Roberts  <nick@nick.uklinux.net>
 
        * gdb-ui.el (gdb-display-number-end): Don't re-initialise local

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)