changeset 9417:c40de6b1b4f9

(calendar-holiday-marker): Copy holiday-face from highlight face.
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Oct 1994 03:26:28 +0000
parents e916757c9acc
children 5d8165cdb0d8
files lisp/calendar/calendar.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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.")