# HG changeset patch # User Richard M. Stallman # Date 781759588 0 # Node ID c40de6b1b4f98b860e01a22d247370af2c584c8a # Parent e916757c9accf76e12ddff090a3f45be3bb425ce (calendar-holiday-marker): Copy holiday-face from highlight face. diff -r e916757c9acc -r c40de6b1b4f9 lisp/calendar/calendar.el --- a/lisp/calendar/calendar.el Mon Oct 10 01:01:20 1994 +0000 +++ b/lisp/calendar/calendar.el Mon Oct 10 03:26:28 1994 +0000 @@ -167,9 +167,8 @@ (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.")