Mercurial > emacs
changeset 51698:92ed57f99b98
(pure-space-overflow): New variable.
(fancy-splash-screens-1): Display warning if overflow.
(normal-splash-screen): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 30 Jun 2003 10:36:35 +0000 |
| parents | 79747466c43b |
| children | 9603cfeea5a5 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.