diff options
| author | Miles Bader <miles@gnu.org> | 2001-11-03 18:09:33 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2001-11-03 18:09:33 +0000 |
| commit | e7f3afa945dd7952345c920599527e96b0f8be2f (patch) | |
| tree | 9a4448b398f7db78c37d97120a591cbee943ee9b /lisp/startup.el | |
| parent | aed29b9702de7654a9c0429edc5fc6e8a64ed824 (diff) | |
| download | emacs-e7f3afa945dd7952345c920599527e96b0f8be2f.tar.gz | |
(fancy-splash-head): Reapply Gerd's hack to make the shadow of the
splash image grey on a dark background instead of black.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index ea1eabced99..4355d21ee51 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1130,6 +1130,12 @@ 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" . "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/")) |