352 |
(diary-display-hook 'ignore) |
(diary-display-hook 'ignore) |
353 |
(diary-entries |
(diary-entries |
354 |
(mapcar (lambda (x) (split-string (car (cdr x)) "\^M\\|\n")) |
(mapcar (lambda (x) (split-string (car (cdr x)) "\^M\\|\n")) |
355 |
(diary-list-entries date 1))) |
(diary-list-entries date 1 'list-only))) |
356 |
(holidays (if holidays-in-diary-buffer |
(holidays (if holidays-in-diary-buffer |
357 |
(check-calendar-holidays date))) |
(check-calendar-holidays date))) |
358 |
(title (concat "Diary entries " |
(title (concat "Diary entries " |