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) |