diff options
| author | Richard M. Stallman | 2001-11-26 20:15:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-26 20:15:26 +0000 |
| commit | 84403b77cb526ca06ca38a500b5466104c78fbb5 (patch) | |
| tree | b470dcc4627a938bfd209b57fd63ac9300045a7b | |
| parent | 49f68fd22b49386494eb0162cb115a5b6b2a9a1e (diff) | |
| download | emacs-84403b77cb526ca06ca38a500b5466104c78fbb5.tar.gz emacs-84403b77cb526ca06ca38a500b5466104c78fbb5.zip | |
(command-line-1): Call kill-buffer only in non-fancy case.
| -rw-r--r-- | lisp/startup.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index df8075a7def..e62665bd560 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -1546,10 +1546,10 @@ where FACE is a valid face specification, as it can be used with | |||
| 1546 | ;; If user typed input during all that work, | 1546 | ;; If user typed input during all that work, |
| 1547 | ;; abort the startup screen. Otherwise, display it now. | 1547 | ;; abort the startup screen. Otherwise, display it now. |
| 1548 | (when (not (input-pending-p)) | 1548 | (when (not (input-pending-p)) |
| 1549 | (with-current-buffer (get-buffer-create "GNU Emacs") | 1549 | (if (and (display-graphic-p) |
| 1550 | (if (and (display-graphic-p) | 1550 | (use-fancy-splash-screens-p)) |
| 1551 | (use-fancy-splash-screens-p)) | 1551 | (fancy-splash-screens) |
| 1552 | (fancy-splash-screens) | 1552 | (with-current-buffer (get-buffer-create "GNU Emacs") |
| 1553 | (let ((tab-width 8) | 1553 | (let ((tab-width 8) |
| 1554 | (mode-line-format (propertize "---- %b %-" | 1554 | (mode-line-format (propertize "---- %b %-" |
| 1555 | 'face '(:weight bold)))) | 1555 | 'face '(:weight bold)))) |
| @@ -1673,8 +1673,8 @@ Type \\[describe-distribution] for information on getting the latest version.")) | |||
| 1673 | (goto-char (point-min)) | 1673 | (goto-char (point-min)) |
| 1674 | (save-window-excursion | 1674 | (save-window-excursion |
| 1675 | (switch-to-buffer (current-buffer)) | 1675 | (switch-to-buffer (current-buffer)) |
| 1676 | (sit-for 120))))) | 1676 | (sit-for 120)))) |
| 1677 | (kill-buffer "GNU Emacs"))))) | 1677 | (kill-buffer "GNU Emacs")))))) |
| 1678 | 1678 | ||
| 1679 | 1679 | ||
| 1680 | (defun command-line-normalize-file-name (file) | 1680 | (defun command-line-normalize-file-name (file) |