[Emacs-diffs] Changes to emacs/lisp/startup.el

[Richard M. Stallman]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.320 emacs/lisp/startup.el:1.321
*** emacs/lisp/startup.el:1.320 Wed May 28 07:24:51 2003
--- emacs/lisp/startup.el       Mon Jun 30 06:36:35 2003
***************
*** 365,370 ****
--- 365,373 ----
  
  (defvar normal-top-level-add-subdirs-inode-list nil)
  
+ (defvar pure-space-overflow nil
+   "Non-nil if building Emacs overflowed pure space.")
+ 
  (defun normal-top-level-add-subdirs-to-load-path ()
    "Add all subdirectories of current directory to `load-path'.
  More precisely, this uses only the subdirectories whose names
***************
*** 1262,1267 ****
--- 1265,1272 ----
    (let ((text (car fancy-current-text)))
      (set-buffer buffer)
      (erase-buffer)
+     (if pure-space-overflow
+       (insert "Warning Warning  Pure space overflow   Warning Warning\n"))
      (fancy-splash-head)
      (apply #'fancy-splash-insert text)
      (fancy-splash-tail)
***************
*** 1358,1363 ****
--- 1363,1371 ----
          (let ((tab-width 8)
                (mode-line-format (propertize "---- %b %-"
                                              'face '(:weight bold))))
+ 
+           (if pure-space-overflow
+               (insert "Warning Warning  Pure space overflow   Warning 
Warning\n"))
  
            ;; The convention for this piece of code is that
            ;; each piece of output starts with one or two newlines