diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-02-15 00:41:52 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-02-15 00:41:52 -0500 |
| commit | b61a87292671c917a4c6c1c146a016f5f544ae36 (patch) | |
| tree | 99c9ad25147f9f0e0e4560f129ab267a34ef829c /lisp/calendar/diary-lib.el | |
| parent | 82379efaaf92e964875c0648b45bcae27b54d213 (diff) | |
| download | emacs-b61a87292671c917a4c6c1c146a016f5f544ae36.tar.gz | |
* lisp/calendar/diary-lib.el (diary-remind): Fix bug#30455.
(diary-remind): Bind `days' as documented for diary-remind-message.
Diffstat (limited to 'lisp/calendar/diary-lib.el')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 181b1172fa6..acf4b20d779 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -2049,7 +2049,8 @@ calendar." (when (setq diary-entry (eval sexp)) ;; Discard any mark portion from diary-anniversary, etc. (if (consp diary-entry) (setq diary-entry (cdr diary-entry))) - (mapconcat #'eval diary-remind-message "")))) + (calendar-dlet* ((days days)) + (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) |