# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1056969395 0
# Node ID 92ed57f99b989c729b9f92ceb74ac4158d7579fb
# Parent  79747466c43b1525b39ccad692edf2b09865decf
(pure-space-overflow): New variable.
(fancy-splash-screens-1): Display warning if overflow.
(normal-splash-screen): Likewise.

diff -r 79747466c43b -r 92ed57f99b98 lisp/startup.el
--- a/lisp/startup.el	Mon Jun 30 10:34:50 2003 +0000
+++ b/lisp/startup.el	Mon Jun 30 10:36:35 2003 +0000
@@ -365,6 +365,9 @@
 
 (defvar normal-top-level-add-subdirs-inode-list nil)
 
+(defvar pure-space-overflow nil
+  "Non-nil if building Emacs overflowed pure space.")
+
 (defun normal-top-level-add-subdirs-to-load-path ()
   "Add all subdirectories of current directory to `load-path'.
 More precisely, this uses only the subdirectories whose names
@@ -1262,6 +1265,8 @@
   (let ((text (car fancy-current-text)))
     (set-buffer buffer)
     (erase-buffer)
+    (if pure-space-overflow
+	(insert "Warning Warning  Pure space overflow   Warning Warning\n"))
     (fancy-splash-head)
     (apply #'fancy-splash-insert text)
     (fancy-splash-tail)
@@ -1359,6 +1364,9 @@
 		(mode-line-format (propertize "---- %b %-"
 					      'face '(:weight bold))))
 
+	    (if pure-space-overflow
+		(insert "Warning Warning  Pure space overflow   Warning Warning\n"))
+
 	    ;; The convention for this piece of code is that
 	    ;; each piece of output starts with one or two newlines
 	    ;; and does not end with any newlines.