(pure-space-overflow): New variable.

(fancy-splash-screens-1): Display warning if overflow.
(normal-splash-screen): Likewise.

diff --git a/lisp/startup.el b/lisp/startup.el
index 196ede1555941c81fdff47aeb7816f7f19fac0af..4b0ab342ef2e010f3fb39d62fd5fbc7a9b5581ce 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -365,6 +365,9 @@ from being initialized."
 
 (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 @@ where FACE is a valid face specification, as it can be used with
   (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 @@ we put it on this frame."
                (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.