Function: fancy-splash-frame

fancy-splash-frame is a byte-compiled function defined in startup.el.gz.

Signature

(fancy-splash-frame)

Documentation

Return the frame to use for the fancy splash screen.

Returning non-nil does not mean we should necessarily use the fancy splash screen, but if we do use it, we put it on this frame.

Source Code

;; Defined in /usr/src/emacs/lisp/startup.el.gz
(defun fancy-splash-frame ()
  "Return the frame to use for the fancy splash screen.
Returning non-nil does not mean we should necessarily
use the fancy splash screen, but if we do use it,
we put it on this frame."
  (let (chosen-frame)
    ;; MS-Windows needs this to have a chance to make the initial
    ;; frame visible.
    (if (eq (window-system) 'w32)
	(sit-for 0 t))
    (if (eq (window-system) 'pgtk)
	(sit-for 0.1 t))
    (dolist (frame (append (frame-list) (list (selected-frame))))
      (if (and (frame-visible-p frame)
	       (not (window-minibuffer-p (frame-selected-window frame))))
	  (setq chosen-frame frame)))
    ;; If there are no visible frames yet, try the selected one.
    (or chosen-frame (selected-frame))))