1502 |
;; has selected another buffer. |
;; has selected another buffer. |
1503 |
(string= (buffer-name) "*scratch*") |
(string= (buffer-name) "*scratch*") |
1504 |
;; Don't display startup screen if init file |
;; Don't display startup screen if init file |
1505 |
|
;; has started some sort of server. |
1506 |
|
(process-list) |
1507 |
|
;; Don't display startup screen if init file |
1508 |
;; has inserted some text in *scratch*. |
;; has inserted some text in *scratch*. |
1509 |
(= 0 (buffer-size))) |
(= 0 (buffer-size))) |
1510 |
;; Display a startup screen, after some preparations. |
;; Display a startup screen, after some preparations. |
1545 |
;; If user typed input during all that work, |
;; If user typed input during all that work, |
1546 |
;; abort the startup screen. Otherwise, display it now. |
;; abort the startup screen. Otherwise, display it now. |
1547 |
(when (not (input-pending-p)) |
(when (not (input-pending-p)) |
1548 |
(with-temp-buffer |
(with-current-buffer (get-buffer-create "GNU Emacs") |
1549 |
(if (and (display-graphic-p) |
(if (and (display-graphic-p) |
1550 |
(use-fancy-splash-screens-p)) |
(use-fancy-splash-screens-p)) |
1551 |
(fancy-splash-screens) |
(fancy-splash-screens) |
1552 |
(let ((tab-width 8)) |
(let ((tab-width 8) |
1553 |
|
(mode-line-format (propertize "---- %b %-" |
1554 |
|
'face '(:weight bold)))) |
1555 |
|
|
1556 |
;; The convention for this piece of code is that |
;; The convention for this piece of code is that |
1557 |
;; each piece of output starts with one or two newlines |
;; each piece of output starts with one or two newlines |
1558 |
;; and does not end with any newlines. |
;; and does not end with any newlines. |
1672 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1673 |
(save-window-excursion |
(save-window-excursion |
1674 |
(switch-to-buffer (current-buffer)) |
(switch-to-buffer (current-buffer)) |
1675 |
(sit-for 120))))))))) |
(sit-for 120))))) |
1676 |
|
(kill-buffer "GNU Emacs"))))) |
1677 |
|
|
1678 |
|
|
1679 |
(defun command-line-normalize-file-name (file) |
(defun command-line-normalize-file-name (file) |