Mercurial > emacs
comparison lisp/calendar/calendar.el @ 33160:8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Remove dependency on `window-system'.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 03 Nov 2000 03:29:28 +0000 |
parents | 387b549687a3 |
children | 8b4c25bb65d8 |
comparison
equal
deleted
inserted
replaced
33159:1e1abe8ec96a | 33160:8006eaf2db42 |
---|---|
202 "*Determine how the calendar mode removes a frame no longer needed. | 202 "*Determine how the calendar mode removes a frame no longer needed. |
203 If nil, make an icon of the frame. If non-nil, delete the frame." | 203 If nil, make an icon of the frame. If non-nil, delete the frame." |
204 :type 'boolean | 204 :type 'boolean |
205 :group 'view) | 205 :group 'view) |
206 | 206 |
207 (when window-system | 207 (add-to-list 'facemenu-unlisted-faces 'diary-face) |
208 (add-to-list 'facemenu-unlisted-faces 'diary-face) | 208 (defface diary-face |
209 (defface diary-face | 209 '((((class color) (background light)) |
210 '((((class color) (background light)) | 210 :foreground "red") |
211 :foreground "red") | 211 (((class color) (background dark)) |
212 (((class color) (background dark)) | 212 :foreground "yellow") |
213 :foreground "yellow") | 213 (t |
214 (t | 214 :bold t)) |
215 :bold t)) | 215 "Face for highlighting diary entries." |
216 "Face for highlighting diary entries." | 216 :group 'diary) |
217 :group 'diary) | 217 |
218 | 218 (add-to-list 'facemenu-unlisted-faces 'calendar-today-face) |
219 (add-to-list 'facemenu-unlisted-faces 'calendar-today-face) | 219 (defface calendar-today-face |
220 (defface calendar-today-face | 220 '((t (:underline t))) |
221 '((t (:underline t))) | 221 "Face for indicating today's date." |
222 "Face for indicating today's date." | 222 :group 'diary) |
223 :group 'diary) | 223 |
224 | 224 (add-to-list 'facemenu-unlisted-faces 'holiday-face) |
225 (add-to-list 'facemenu-unlisted-faces 'holiday-face) | 225 (defface holiday-face |
226 (defface holiday-face | 226 '((((class color) (background light)) |
227 '((((class color) (background light)) | 227 :background "pink") |
228 :background "pink") | 228 (((class color) (background dark)) |
229 (((class color) (background dark)) | 229 :background "chocolate4") |
230 :background "chocolate4") | 230 (t |
231 (t | 231 :inverse-video t)) |
232 :inverse-video t)) | 232 "Face for indicating dates that have holidays." |
233 "Face for indicating dates that have holidays." | 233 :group 'diary) |
234 :group 'diary)) | |
235 | 234 |
236 (defcustom diary-entry-marker | 235 (defcustom diary-entry-marker |
237 (if (not window-system) | 236 (if (not window-system) |
238 "+" | 237 "+" |
239 'diary-face) | 238 'diary-face) |