(fancy-splash-head): Don't change the colors of the

XPM image on a dark background.

2 files changed, 3 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f459dec6ab..2e3203d6f08 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-03-20  Gerd Moellmann  <gerd@gnu.org>
 
+        * startup.el (fancy-splash-head): Don't change the colors of the
+        XPM image on a dark background.
+
         * comint.el (comint-exec-1): Set columns of the terminal to
         window-width instead of frame-width.
 
diff --git a/lisp/startup.el b/lisp/startup.el
index 44b15bc9772..401b1f3f41b 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1087,12 +1087,6 @@ 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" . "gray"))))))
-
         ;; Insert the image with a help-echo and a keymap.
         (let ((map (make-sparse-keymap))
               (help-echo "mouse-2: browse http://www.gnu.org/"))