(calendar-holiday-marker): Copy holiday-face from highlight face.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 7d9550d3dc42979fac4cd774137db19e4cbf4e15..07e4ca52c721653f5e66878cfb21170d172c0d64 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -167,9 +167,8 @@ Can be either a single-character string or a face.")
     (require 'faces)
     (make-face 'holiday-face)
     (if (x-display-color-p)
-          (set-face-background 'holiday-face "pink")
-      (set-face-background 'holiday-face "black")
-      (set-face-foreground 'holiday-face "white"))
+       (set-face-background 'holiday-face "pink")
+      (copy-face 'highlight 'holiday-face))
     'holiday-face)
   "*Used to mark notable dates in the calendar.
 Can be either a single-character string or a face.")