# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 973069886 0
# Node ID 387b549687a35aec7b5a9adce709f91fa7426835
# Parent  74323fb60963fc04d47470c3538ce73e3ee741f9
(diary-face, holiday-face): Add dark-background variants.

diff -r 74323fb60963 -r 387b549687a3 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Tue Oct 31 21:31:55 2000 +0000
+++ b/lisp/calendar/calendar.el	Wed Nov 01 09:11:26 2000 +0000
@@ -207,9 +207,12 @@
 (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 @@
 
   (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))