Mercurial > emacs
changeset 40681:74d51420aa46
(fancy-splash-head): Reapply Gerd's hack to make the shadow of the
splash image grey on a dark background instead of black.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 03 Nov 2001 18:09:33 +0000 |
| parents | 877b266d0434 |
| children | e9a06f7efd3f |
| files | lisp/startup.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Sat Nov 03 17:02:03 2001 +0000 +++ b/lisp/startup.el Sat Nov 03 18:09:33 2001 +0000 @@ -1130,6 +1130,12 @@ (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" . "gray30")))))) + ;; Insert the image with a help-echo and a keymap. (let ((map (make-sparse-keymap)) (help-echo "mouse-2: browse http://www.gnu.org/"))