From e7f3afa945dd7952345c920599527e96b0f8be2f Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sat, 3 Nov 2001 18:09:33 +0000 Subject: [PATCH] (fancy-splash-head): Reapply Gerd's hack to make the shadow of the splash image grey on a dark background instead of black. --- lisp/startup.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index ea1eabced99..4355d21ee51 100644 --- 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/")) -- 2.39.5