Mercurial > emacs
comparison lisp/startup.el @ 31800:afc3af0cc724
(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 | 33409fc6f40f |
children | 4532598de5a9 |
comparison
equal
deleted
inserted
replaced
31799:70b0ec04801f | 31800:afc3af0cc724 |
---|---|
928 (insert "\n")) | 928 (insert "\n")) |
929 | 929 |
930 | 930 |
931 (defun fancy-splash-tail () | 931 (defun fancy-splash-tail () |
932 "Insert the tail part of the splash screen into the current buffer." | 932 "Insert the tail part of the splash screen into the current buffer." |
933 (fancy-splash-insert | 933 (let ((fg (if (eq (frame-parameter nil 'background-mode) 'dark) |
934 :face '(variable-pitch :foreground "darkblue") | 934 "cyan" "darkblue"))) |
935 "\nThis is " | 935 (fancy-splash-insert :face `(variable-pitch :foreground ,fg) |
936 (emacs-version) | 936 "\nThis is " |
937 "\n" | 937 (emacs-version) |
938 :face '(variable-pitch :height 0.5) | 938 "\n" |
939 "Copyright (C) 2000 Free Software Foundation, Inc.")) | 939 :face '(variable-pitch :height 0.5) |
940 "Copyright (C) 2000 Free Software Foundation, Inc."))) | |
940 | 941 |
941 | 942 |
942 (defun fancy-splash-screens () | 943 (defun fancy-splash-screens () |
943 "Display splash screens when Emacs starts." | 944 "Display splash screens when Emacs starts." |
944 (let* ((old-cursor-type cursor-type) | 945 (let* ((old-cursor-type cursor-type) |