Mercurial > emacs
changeset 36898:022d6947262f
(fancy-splash-head): Don't change the colors of the
XPM image on a dark background.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 20 Mar 2001 15:14:48 +0000 |
| parents | bd3d3bab4291 |
| children | 1393f641034e |
| files | lisp/startup.el |
| diffstat | 1 files changed, 0 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Tue Mar 20 15:11:31 2001 +0000 +++ b/lisp/startup.el Tue Mar 20 15:14:48 2001 +0000 @@ -1087,12 +1087,6 @@ (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/"))