From 84403b77cb526ca06ca38a500b5466104c78fbb5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 26 Nov 2001 20:15:26 +0000 Subject: [PATCH] (command-line-1): Call kill-buffer only in non-fancy case. --- lisp/startup.el | 12 ++++++------ 1 file 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 ;; 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) -- 2.39.5