From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Thu, 27 Apr 2006 13:51:57 +0000 (+0000)
Subject: (command-line-1): Display warning when
X-Git-Tag: emacs-pretest-22.0.90~2925
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb58ea33227cfe3fa6bc71483097a0aecfff826f;p=emacs.git

(command-line-1): Display warning when
pure-space-overflow is non-nil.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c91a3ec04ff..f961f6f1315 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-27  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* startup.el (command-line-1): Display warning when
+	pure-space-overflow is non-nil.
+
 2006-04-26  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
 
 	* textmodes/bibtex.el (bibtex-user-optional-fields): Mark as
diff --git a/lisp/startup.el b/lisp/startup.el
index 907ae463462..470ffd7745c 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1616,6 +1616,15 @@ normal otherwise."
   (when init-file-had-error
     (sit-for 2))
 
+  (when (and pure-space-overflow
+	     (not noninteractive))
+    (display-warning
+     'initialization
+     "Building Emacs overflowed pure space."
+     ;; FIXME: Tell the user what kind of problems are possible and how to fix
+     ;; the overflow.
+     :warning))
+
   (when command-line-args-left
     ;; We have command args; process them.
     (let ((dir command-line-default-directory)