1546 |
;; If user typed input during all that work, |
;; If user typed input during all that work, |
1547 |
;; abort the startup screen. Otherwise, display it now. |
;; abort the startup screen. Otherwise, display it now. |
1548 |
(when (not (input-pending-p)) |
(when (not (input-pending-p)) |
1549 |
(with-current-buffer (get-buffer-create "GNU Emacs") |
(if (and (display-graphic-p) |
1550 |
(if (and (display-graphic-p) |
(use-fancy-splash-screens-p)) |
1551 |
(use-fancy-splash-screens-p)) |
(fancy-splash-screens) |
1552 |
(fancy-splash-screens) |
(with-current-buffer (get-buffer-create "GNU Emacs") |
1553 |
(let ((tab-width 8) |
(let ((tab-width 8) |
1554 |
(mode-line-format (propertize "---- %b %-" |
(mode-line-format (propertize "---- %b %-" |
1555 |
'face '(:weight bold)))) |
'face '(:weight bold)))) |
1673 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1674 |
(save-window-excursion |
(save-window-excursion |
1675 |
(switch-to-buffer (current-buffer)) |
(switch-to-buffer (current-buffer)) |
1676 |
(sit-for 120))))) |
(sit-for 120)))) |
1677 |
(kill-buffer "GNU Emacs"))))) |
(kill-buffer "GNU Emacs")))))) |
1678 |
|
|
1679 |
|
|
1680 |
(defun command-line-normalize-file-name (file) |
(defun command-line-normalize-file-name (file) |