comparison lisp/startup.el @ 72939:980586804d04

* startup.el (fancy-splash-screens): Don't switch to the scratch buffer; it may not be the next buffer.

72938:4ec3fdbaa1ab

		  (recursive-edit))
	      (cancel-timer timer)
	      (setq display-hourglass old-hourglass
		    minor-mode-map-alist old-minor-mode-map-alist
		    emulation-mode-map-alists old-emulation-mode-map-alists)
	      (use-local-map nil)
	      (switch-to-buffer "*scratch*")
;;;  Comment out the next line in order to see the splash buffer exactly as it was.
	      (kill-buffer splash-buffer)
	      ))))
    ;; If hide-on-input is nil, don't hide the buffer on input.
    (if (or (window-minibuffer-p)
	    (window-dedicated-p (selected-window)))
	(pop-to-buffer (current-buffer))
      (switch-to-buffer "GNU Emacs"))

72939:980586804d04

		  (recursive-edit))
	      (cancel-timer timer)
	      (setq display-hourglass old-hourglass
		    minor-mode-map-alist old-minor-mode-map-alist
		    emulation-mode-map-alists old-emulation-mode-map-alists)
	      (kill-buffer splash-buffer)))))
    ;; If hide-on-input is nil, don't hide the buffer on input.
    (if (or (window-minibuffer-p)
	    (window-dedicated-p (selected-window)))
	(pop-to-buffer (current-buffer))
      (switch-to-buffer "GNU Emacs"))