From 6a4803ec738ba800eab12bf776c38f1b5345c2d7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 30 Jun 2003 10:38:03 +0000 Subject: [PATCH] (pure-space-overflow): Set it if overflow. --- lisp/ChangeLog | 20 ++++++++++++++++++++ lisp/loadup.el | 3 +++ 2 files changed, 23 insertions(+) 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 + + * 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 + + * 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 * 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) -- 2.39.2