(when window-system
(add-to-list 'facemenu-unlisted-faces 'diary-face)
(defface diary-face
- '(((:class color) :foreground "red")
+ '(((:class color) (:foreground "red"))
(t (:bold t)))
"Face for highlighting diary entries."
:group 'diary)
(add-to-list 'facemenu-unlisted-faces 'holiday-face)
(defface holiday-face
- '(((:class color) :background "pink")
+ '(((:class color) (:background "pink"))
(t (:inverse-video t)))
"Face for indicating dates that have holidays."
:group 'diary))