From cb58ea33227cfe3fa6bc71483097a0aecfff826f Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Thu, 27 Apr 2006 13:51:57 +0000 Subject: [PATCH] (command-line-1): Display warning when pure-space-overflow is non-nil. --- lisp/ChangeLog | 5 +++++ lisp/startup.el | 9 +++++++++ 2 files changed, 14 insertions(+) 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 + + * startup.el (command-line-1): Display warning when + pure-space-overflow is non-nil. + 2006-04-26 Roland Winkler * 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) -- 2.39.2