mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(fancy-splash-tail): Use a different foreground

Browse Source 
color on a dark frame background.
This commit is contained in:
Gerd Moellmann 2000-09-21 09:07:11 +00:00
parent 470f23e147
commit 95fadcca44
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2000-09-21 Gerd Moellmann <gerd@gnu.org>
* startup.el (fancy-splash-tail): Use a different foreground
color on a dark frame background.
2000-09-21 Miles Bader <miles@lsi.nec.co.jp>
* info.el: Use the correct capitalization when making Info-mode

15
lisp/startup.el
View File

@ -930,13 +930,14 @@ where FACE is a valid face specification, as it can be used with
(defun fancy-splash-tail ()
"Insert the tail part of the splash screen into the current buffer."
(fancy-splash-insert
:face '(variable-pitch :foreground "darkblue")
"\nThis is "
(emacs-version)
"\n"
:face '(variable-pitch :height 0.5)
"Copyright (C) 2000 Free Software Foundation, Inc."))
(let ((fg (if (eq (frame-parameter nil 'background-mode) 'dark)
"cyan" "darkblue")))
(fancy-splash-insert :face `(variable-pitch :foreground ,fg)
"\nThis is "
(emacs-version)
"\n"
:face '(variable-pitch :height 0.5)
"Copyright (C) 2000 Free Software Foundation, Inc.")))
(defun fancy-splash-screens ()