From b693e375218475627dbc4ecd28993165c237cc93 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 30 Jun 2003 10:36:35 +0000 Subject: [PATCH] (pure-space-overflow): New variable. (fancy-splash-screens-1): Display warning if overflow. (normal-splash-screen): Likewise. --- lisp/startup.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index 196ede15559..4b0ab342ef2 100644 --- 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. -- 2.39.2