Function: use-fancy-splash-screens-p

use-fancy-splash-screens-p is a byte-compiled function defined in startup.el.gz.

Signature

(use-fancy-splash-screens-p)

Documentation

Return t if fancy splash screens should be used.

Source Code

;; Defined in /usr/src/emacs/lisp/startup.el.gz
(defun use-fancy-splash-screens-p ()
  "Return t if fancy splash screens should be used."
  (when (and (display-graphic-p)
             (or (and (display-color-p)
		      (image-type-available-p 'xpm))
                 (image-type-available-p 'pbm)))
    (let ((frame (fancy-splash-frame)))
      (when frame
	(let ((img (create-image (fancy-splash-image-file))))
          (when img
            (let ((image-height (cdr (image-size img nil frame)))
                  ;; We test frame-height and not window-height so that,
                  ;; if the frame is split by displaying a warning, that
                  ;; doesn't cause the normal splash screen to be used.
                  ;; We subtract 2 from frame-height to account for the
                  ;; echo area and the mode line.
                  (frame-height (- (frame-height frame) 2)))
	      (> frame-height (+ image-height 19)))))))))