(command-line-1): Call kill-buffer only in non-fancy case.

diff --git a/lisp/startup.el b/lisp/startup.el
index df8075a7def8ac4c756474eab6593ec88880986b..e62665bd560487b44edc31a2226f8e464ef0c4a5 100644 (file)
--- 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
       ;; If user typed input during all that work,
       ;; abort the startup screen.  Otherwise, display it now.
       (when (not (input-pending-p))
-       (with-current-buffer (get-buffer-create "GNU Emacs")
-         (if (and (display-graphic-p)
-                  (use-fancy-splash-screens-p))
-             (fancy-splash-screens)
+       (if (and (display-graphic-p)
+                (use-fancy-splash-screens-p))
+           (fancy-splash-screens)
+         (with-current-buffer (get-buffer-create "GNU Emacs")
            (let ((tab-width 8)
                  (mode-line-format (propertize "---- %b %-" 
                                                'face '(:weight bold))))
@@ -1673,8 +1673,8 @@ Type \\[describe-distribution] for information on getting the latest version."))
              (goto-char (point-min))
              (save-window-excursion
                (switch-to-buffer (current-buffer))
-               (sit-for 120)))))
-       (kill-buffer "GNU Emacs")))))
+               (sit-for 120))))
+         (kill-buffer "GNU Emacs"))))))
 
 
 (defun command-line-normalize-file-name (file)