diff options
author | Miles Bader <[email protected]> | 2000-11-01 09:11:58 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2000-11-01 09:11:58 +0000 |
commit | 5bf991004446d1407ad9d8aed615ed0e9374fe55 (patch) | |
tree | 43f4d855188e06883f2b39d033e6b78af5b5349f /lisp/calendar/calendar.el | |
parent | a403261168fe5c6f27f8ca7fcfc65dafc9ca3991 (diff) |
(diary-face, holiday-face): Add dark-background variants.
Diffstat (limited to 'lisp/calendar/calendar.el')
-rw-r--r-- | lisp/calendar/calendar.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index c98ecd6d14..4eb08e1626 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -207,9 +207,12 @@ If nil, make an icon of the frame. If non-nil, delete the frame." (when window-system (add-to-list 'facemenu-unlisted-faces 'diary-face) (defface diary-face - '((((class color)) - (:foreground "red")) - (t (:bold t))) + '((((class color) (background light)) + :foreground "red") + (((class color) (background dark)) + :foreground "yellow") + (t + :bold t)) "Face for highlighting diary entries." :group 'diary) @@ -221,9 +224,12 @@ If nil, make an icon of the frame. If non-nil, delete the frame." (add-to-list 'facemenu-unlisted-faces 'holiday-face) (defface holiday-face - '((((class color)) - (:background "pink")) - (t (:inverse-video t))) + '((((class color) (background light)) + :background "pink") + (((class color) (background dark)) + :background "chocolate4") + (t + :inverse-video t)) "Face for indicating dates that have holidays." :group 'diary)) |