procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2001-11-26 20:15:26 +00:00
parent 49f68fd22b
commit 84403b77cb
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/startup.el
View file

@ -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)