From 7b8bbf72be98d902817aa18ae4654ff666705101 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 20 Mar 2001 15:15:21 +0000 Subject: [PATCH] (fancy-splash-head): Don't change the colors of the XPM image on a dark background. --- lisp/ChangeLog | 3 +++ lisp/startup.el | 6 ------ 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 + * 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/")) -- 2.39.2