1625 |
(or (not marking-diary-entries) marking)) |
(or (not marking-diary-entries) marking)) |
1626 |
(let ((date (calendar-gregorian-from-absolute |
(let ((date (calendar-gregorian-from-absolute |
1627 |
(+ (calendar-absolute-from-gregorian date) days)))) |
(+ (calendar-absolute-from-gregorian date) days)))) |
1628 |
(if (setq diary-entry (eval sexp)) |
(when (setq diary-entry (eval sexp)) ; re-evaluate with adjusted date |
1629 |
(mapconcat 'eval diary-remind-message "")))) |
;; Discard any mark portion from diary-anniversary, etc. |
1630 |
|
(if (consp diary-entry) (setq diary-entry (cdr diary-entry))) |
1631 |
|
(mapconcat 'eval diary-remind-message "")))) |
1632 |
;; Diary entry may apply to one of a list of days before date |
;; Diary entry may apply to one of a list of days before date |
1633 |
((and (listp days) days) |
((and (listp days) days) |
1634 |
(or (diary-remind sexp (car days) marking) |
(or (diary-remind sexp (car days) marking) |