diff options
| author | Reiner Steib | 2006-04-27 13:51:57 +0000 |
|---|---|---|
| committer | Reiner Steib | 2006-04-27 13:51:57 +0000 |
| commit | cb58ea33227cfe3fa6bc71483097a0aecfff826f (patch) | |
| tree | 9494e3b1e51f83359251537113edd701e2bc12cd /lisp/startup.el | |
| parent | 991767e75e23e8804b69d608f0b1c0e5e16ada14 (diff) | |
| download | emacs-cb58ea33227cfe3fa6bc71483097a0aecfff826f.tar.gz emacs-cb58ea33227cfe3fa6bc71483097a0aecfff826f.zip | |
(command-line-1): Display warning when
pure-space-overflow is non-nil.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 9 |
1 files changed, 9 insertions, 0 deletions
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." | |||
| 1616 | (when init-file-had-error | 1616 | (when init-file-had-error |
| 1617 | (sit-for 2)) | 1617 | (sit-for 2)) |
| 1618 | 1618 | ||
| 1619 | (when (and pure-space-overflow | ||
| 1620 | (not noninteractive)) | ||
| 1621 | (display-warning | ||
| 1622 | 'initialization | ||
| 1623 | "Building Emacs overflowed pure space." | ||
| 1624 | ;; FIXME: Tell the user what kind of problems are possible and how to fix | ||
| 1625 | ;; the overflow. | ||
| 1626 | :warning)) | ||
| 1627 | |||
| 1619 | (when command-line-args-left | 1628 | (when command-line-args-left |
| 1620 | ;; We have command args; process them. | 1629 | ;; We have command args; process them. |
| 1621 | (let ((dir command-line-default-directory) | 1630 | (let ((dir command-line-default-directory) |