From 9df076f27f6798d72b8c0b0a427f74d482ef94f1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 19 Sep 2003 22:44:45 +0000 Subject: [PATCH] (use-fancy-splash-screens-p, display-splash-screen): Move display-graphic-p test from latter to former. Fixes previous change. --- lisp/ChangeLog | 2 ++ lisp/startup.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 23714466857..17c6f8cfb4b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -7,6 +7,8 @@ * startup.el (command-line-1): Stop startup-echo-area-message being hidden by "Loading image..." message. + (use-fancy-splash-screens-p, display-splash-screen): Move + display-graphic-p test from latter to former. * progmodes/sh-script.el (sh-font-lock-keywords): Highlight escaped EOLs differently from other backslash constructs. diff --git a/lisp/startup.el b/lisp/startup.el index 8d425f84e19..2808689eaeb 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1341,9 +1341,10 @@ we put it on this frame." (defun use-fancy-splash-screens-p () "Return t if fancy splash screens should be used." - (when (or (and (display-color-p) + (when (and (display-graphic-p) + (or (and (display-color-p) (image-type-available-p 'xpm)) - (image-type-available-p 'pbm)) + (image-type-available-p 'pbm))) (let ((frame (fancy-splash-frame))) (when frame (let* ((img (create-image (or fancy-splash-image @@ -1517,8 +1518,7 @@ Type \\[describe-distribution] for information on getting the latest version.")) Fancy splash screens are used on graphic displays, normal otherwise." (interactive) - (if (and (display-graphic-p) - (use-fancy-splash-screens-p)) + (if (use-fancy-splash-screens-p) (fancy-splash-screens) (normal-splash-screen))) -- 2.39.2