From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 21 Sep 2000 09:07:11 +0000 (+0000)
Subject: (fancy-splash-tail): Use a different foreground
X-Git-Tag: emacs-pretest-21.0.90~1459
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95fadcca446a7b7dde52e82a3333cf5c3c3a8e0c;p=emacs.git

(fancy-splash-tail): Use a different foreground
color on a dark frame background.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a744ff26ca..e71fe85bfad 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
diff --git a/lisp/startup.el b/lisp/startup.el
index d57e1e72bea..c1344f6f7b9 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -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 ()