procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
XPM image on a dark background.
This commit is contained in:
Gerd Moellmann 2001-03-20 15:15:21 +00:00
parent a91ad7c961
commit 7b8bbf72be
2 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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.

6
lisp/startup.el
View file

@ -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/"))