(fancy-splash-head): Reapply Gerd's hack to make the shadow of the

splash image grey on a dark background instead of black.

diff --git a/lisp/startup.el b/lisp/startup.el
index ea1eabced997bf9135c28e26205892ea7ac28c2f..4355d21ee51a3fe12c5071aa3a4a22ffc41721ea 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1130,6 +1130,12 @@ where FACE is a valid face specification, as it can be used with
        (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/"))