/[emacs]/emacs/lisp/calendar/diary-lib.el
ViewVC logotype

Diff of /emacs/lisp/calendar/diary-lib.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.87 by kfstorm, Wed Feb 9 15:50:40 2005 UTC revision 1.88 by gm, Sun Feb 27 22:46:03 2005 UTC
# Line 1625  marked on the calendar." Line 1625  marked on the calendar."
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)

Legend:
Removed from v.1.87  
changed lines
  Added in v.1.88

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26