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

XPM image on a dark background.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f459dec6ab6dd07bfd18b55909233d52a86f8f1..2e3203d6f085ad6aec35ae6749265618e3884a87 100644 (file)
--- 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 44b15bc9772c5ac45a956dad0867cb323748299e..401b1f3f41b9e5168547f817cfed7595ddeaa920 100644 (file)
--- 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/"))