From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 15 Feb 2018 05:41:52 +0000 (-0500)
Subject: * lisp/calendar/diary-lib.el (diary-remind): Fix bug#30455.
X-Git-Tag: emacs-27.0.90~5680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b61a87292671c917a4c6c1c146a016f5f544ae36;p=emacs.git

* lisp/calendar/diary-lib.el (diary-remind): Fix bug#30455.

(diary-remind): Bind `days' as documented for diary-remind-message.
---

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)