# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1004810973 0
# Node ID 74d51420aa465b9cc754ad5543e7cf08e2f6825b
# Parent  877b266d04343ec87a28c5d1a64b9bee7bd12801
(fancy-splash-head): Reapply Gerd's hack to make the shadow of the
splash image grey on a dark background instead of black.

diff -r 877b266d0434 -r 74d51420aa46 lisp/startup.el
--- a/lisp/startup.el	Sat Nov 03 17:02:03 2001 +0000
+++ b/lisp/startup.el	Sat Nov 03 18:09:33 2001 +0000
@@ -1130,6 +1130,12 @@
 	(let ((pos (/ (- window-width image-width) 2)))
 	  (insert (propertize " " 'display `(space :align-to ,pos))))
 
+	;; Change the color of the XPM version of the splash image
+	;; so that it is visible with a dark frame background.
+	(when (and (memq 'xpm img)
+		   (eq (frame-parameter nil 'background-mode) 'dark))
+	  (setq img (append img '(:color-symbols (("#000000" . "gray30"))))))
+
 	;; Insert the image with a help-echo and a keymap.
 	(let ((map (make-sparse-keymap))
 	      (help-echo "mouse-2: browse http://www.gnu.org/"))