Mercurial > emacs
diff lisp/startup.el @ 70252:8b0a765eb64a
(command-line-1): Display warning when
pure-space-overflow is non-nil.
author | Reiner Steib <Reiner.Steib@gmx.de> |
---|---|
date | Thu, 27 Apr 2006 13:51:57 +0000 |
parents | 86291f09f3d1 |
children | bddeadaa4365 966a40e7fb54 2ecafc6d5db7 |
line wrap: on
line diff
--- a/lisp/startup.el Wed Apr 26 23:36:24 2006 +0000 +++ b/lisp/startup.el Thu Apr 27 13:51:57 2006 +0000 @@ -1616,6 +1616,15 @@ (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)