Mercurial > emacs
comparison lisp/calendar/calendar.el @ 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 | 34db69f96583 |
children | 3ece524b8ea3 |
comparison
equal
deleted
inserted
replaced
9416:e916757c9acc | 9417:c40de6b1b4f9 |
---|---|
165 (if (not window-system) | 165 (if (not window-system) |
166 "*" | 166 "*" |
167 (require 'faces) | 167 (require 'faces) |
168 (make-face 'holiday-face) | 168 (make-face 'holiday-face) |
169 (if (x-display-color-p) | 169 (if (x-display-color-p) |
170 (set-face-background 'holiday-face "pink") | 170 (set-face-background 'holiday-face "pink") |
171 (set-face-background 'holiday-face "black") | 171 (copy-face 'highlight 'holiday-face)) |
172 (set-face-foreground 'holiday-face "white")) | |
173 'holiday-face) | 172 'holiday-face) |
174 "*Used to mark notable dates in the calendar. | 173 "*Used to mark notable dates in the calendar. |
175 Can be either a single-character string or a face.") | 174 Can be either a single-character string or a face.") |
176 | 175 |
177 ;;;###autoload | 176 ;;;###autoload |