# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1006805726 0
# Node ID 39c6a725758cd5fe5e140ae3c184fd6f302b29d5
# Parent  67d2bb2830769654939fc981ad2aa53b75e6d51e
(command-line-1): Call kill-buffer only in non-fancy case.

diff -r 67d2bb283076 -r 39c6a725758c lisp/startup.el
--- a/lisp/startup.el	Mon Nov 26 20:10:04 2001 +0000
+++ b/lisp/startup.el	Mon Nov 26 20:15:26 2001 +0000
@@ -1546,10 +1546,10 @@
       ;; 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 @@
 	      (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)