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 |
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) |
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. |