martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(diary-remind): Discard any mark portion from diary-entry. Reported

Browse Source 
by Andrew Kemp <ajwk@pell.uklinux.net>.
This commit is contained in:
Glenn Morris
2005-02-27 22:46:03 +00:00
parent 04c9dde8af
commit 07a66b979b
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/calendar/diary-lib.el
View File

@@ -1625,8 +1625,10 @@ marked on the calendar."
(or (not marking-diary-entries) marking))
(let ((date (calendar-gregorian-from-absolute
(+ (calendar-absolute-from-gregorian date) days))))
(if (setq diary-entry (eval sexp))
(mapconcat 'eval diary-remind-message ""))))
(when (setq diary-entry (eval sexp)) ; re-evaluate with adjusted date
;; Discard any mark portion from diary-anniversary, etc.
(if (consp diary-entry) (setq diary-entry (cdr diary-entry)))
(mapconcat 'eval diary-remind-message ""))))
;; Diary entry may apply to one of a list of days before date
((and (listp days) days)
(or (diary-remind sexp (car days) marking)