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) |