Mercurial > emacs

changeset 31800:afc3af0cc724

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fancy-splash-tail): Use a different foreground color on a dark frame background.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 21 Sep 2000 09:06:51 +0000
parents 70b0ec04801f
children 9de0c3880281
files lisp/startup.el
diffstat 1 files changed, 8 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Thu Sep 21 04:49:57 2000 +0000
+++ b/lisp/startup.el	Thu Sep 21 09:06:51 2000 +0000
@@ -930,13 +930,14 @@
 
 (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 ()