diff options
author | Miles Bader <[email protected]> | 2000-11-03 03:30:49 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2000-11-03 03:30:49 +0000 |
commit | 9c887adacf57efd199e5930cb8f519de6256f583 (patch) | |
tree | 66c7faf5a17ddefc80638a2d9c124c5451cd3e35 /lisp/calendar/calendar.el | |
parent | 9b9111073686faa7dc71b57ff85c120a3a76e6f2 (diff) |
(diary-face, calendar-today-face, holiday-face):
Remove dependency on `window-system'.
Diffstat (limited to 'lisp/calendar/calendar.el')
-rw-r--r-- | lisp/calendar/calendar.el | 55 |
1 files changed, 27 insertions, 28 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 4eb08e1626..8773cc8746 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -204,34 +204,33 @@ If nil, make an icon of the frame. If non-nil, delete the frame." :type 'boolean :group 'view) -(when window-system - (add-to-list 'facemenu-unlisted-faces 'diary-face) - (defface diary-face - '((((class color) (background light)) - :foreground "red") - (((class color) (background dark)) - :foreground "yellow") - (t - :bold t)) - "Face for highlighting diary entries." - :group 'diary) - - (add-to-list 'facemenu-unlisted-faces 'calendar-today-face) - (defface calendar-today-face - '((t (:underline t))) - "Face for indicating today's date." - :group 'diary) - - (add-to-list 'facemenu-unlisted-faces 'holiday-face) - (defface holiday-face - '((((class color) (background light)) - :background "pink") - (((class color) (background dark)) - :background "chocolate4") - (t - :inverse-video t)) - "Face for indicating dates that have holidays." - :group 'diary)) +(add-to-list 'facemenu-unlisted-faces 'diary-face) +(defface diary-face + '((((class color) (background light)) + :foreground "red") + (((class color) (background dark)) + :foreground "yellow") + (t + :bold t)) + "Face for highlighting diary entries." + :group 'diary) + +(add-to-list 'facemenu-unlisted-faces 'calendar-today-face) +(defface calendar-today-face + '((t (:underline t))) + "Face for indicating today's date." + :group 'diary) + +(add-to-list 'facemenu-unlisted-faces 'holiday-face) +(defface holiday-face + '((((class color) (background light)) + :background "pink") + (((class color) (background dark)) + :background "chocolate4") + (t + :inverse-video t)) + "Face for indicating dates that have holidays." + :group 'diary) (defcustom diary-entry-marker (if (not window-system) |