diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-03-20 15:14:48 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-20 15:14:48 +0000 |
commit | d9299b475d553458578564292ce94fa06f85afb3 (patch) | |
tree | a16db9789e8757595bd57000d7b23d8576cf90d5 /lisp/startup.el | |
parent | 13a019b6acdcb29f7b309eaac33539378ef1198f (diff) | |
download | emacs-d9299b475d553458578564292ce94fa06f85afb3.tar.gz |
(fancy-splash-head): Don't change the colors of the
XPM image on a dark background.
Diffstat (limited to 'lisp/startup.el')
-rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 0 insertions, 6 deletions
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/")) |