/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.320 by rms, Wed May 28 11:24:51 2003 UTC revision 1.321 by rms, Mon Jun 30 10:36:35 2003 UTC
# Line 365  from being initialized." Line 365  from being initialized."
365    
366  (defvar normal-top-level-add-subdirs-inode-list nil)  (defvar normal-top-level-add-subdirs-inode-list nil)
367    
368    (defvar pure-space-overflow nil
369      "Non-nil if building Emacs overflowed pure space.")
370    
371  (defun normal-top-level-add-subdirs-to-load-path ()  (defun normal-top-level-add-subdirs-to-load-path ()
372    "Add all subdirectories of current directory to `load-path'.    "Add all subdirectories of current directory to `load-path'.
373  More precisely, this uses only the subdirectories whose names  More precisely, this uses only the subdirectories whose names
# Line 1262  where FACE is a valid face specification Line 1265  where FACE is a valid face specification
1265    (let ((text (car fancy-current-text)))    (let ((text (car fancy-current-text)))
1266      (set-buffer buffer)      (set-buffer buffer)
1267      (erase-buffer)      (erase-buffer)
1268        (if pure-space-overflow
1269            (insert "Warning Warning  Pure space overflow   Warning Warning\n"))
1270      (fancy-splash-head)      (fancy-splash-head)
1271      (apply #'fancy-splash-insert text)      (apply #'fancy-splash-insert text)
1272      (fancy-splash-tail)      (fancy-splash-tail)
# Line 1359  we put it on this frame." Line 1364  we put it on this frame."
1364                  (mode-line-format (propertize "---- %b %-"                  (mode-line-format (propertize "---- %b %-"
1365                                                'face '(:weight bold))))                                                'face '(:weight bold))))
1366    
1367                (if pure-space-overflow
1368                    (insert "Warning Warning  Pure space overflow   Warning Warning\n"))
1369    
1370              ;; The convention for this piece of code is that              ;; The convention for this piece of code is that
1371              ;; each piece of output starts with one or two newlines              ;; each piece of output starts with one or two newlines
1372              ;; and does not end with any newlines.              ;; and does not end with any newlines.

Legend:
Removed from v.1.320  
changed lines
  Added in v.1.321

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26