diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/startup.el | 9 |
2 files changed, 14 insertions, 0 deletions
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) |