From 95fadcca446a7b7dde52e82a3333cf5c3c3a8e0c Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 21 Sep 2000 09:07:11 +0000 Subject: [PATCH] (fancy-splash-tail): Use a different foreground color on a dark frame background. --- lisp/ChangeLog | 5 +++++ lisp/startup.el | 15 ++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) 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 + + * startup.el (fancy-splash-tail): Use a different foreground + color on a dark frame background. + 2000-09-21 Miles Bader * 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 () -- 2.39.2