[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master b61a872: * lisp/calendar/diary-lib.el (diary-remind

From: Stefan Monnier
Subject: [Emacs-diffs] master b61a872: * lisp/calendar/diary-lib.el (diary-remind): Fix bug#30455.
Date: Thu, 15 Feb 2018 00:42:00 -0500 (EST)

branch: master
commit b61a87292671c917a4c6c1c146a016f5f544ae36
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/calendar/diary-lib.el (diary-remind): Fix bug#30455.
    (diary-remind): Bind `days' as documented for diary-remind-message.
 lisp/calendar/diary-lib.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 181b117..acf4b20 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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]