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

2 files changed, 23 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65ad59469be..d2075f23ce3 100644
--- 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 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)