From b06735aa85506e04f9b2ea7457bab411a1b86bf3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=BCdiger=20Sonderfeld?= Date: Sun, 3 Mar 2013 15:08:12 +0100 Subject: [PATCH] orgcontacts.el: Fix `date' being broken in `org-contacts-anniversaries'. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * contrib/lisp/org-contacts.el: Add defvar for date. Similar to org.el. (org-contacts-anniversaries): Setting date to nil breaks the function. Bug was introduced in e4cebbe40. Signed-off-by: Rüdiger Sonderfeld --- contrib/lisp/org-contacts.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index 4ffe36001..d849e7fdf 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/org-contacts.el @@ -499,6 +499,7 @@ A group FOO is composed of contacts with the tag FOO." ;; show the next heading (org-flag-heading nil))))))) +(org-no-warnings (defvar date)) ;; unprefixed, from calendar.el (defun org-contacts-anniversaries (&optional field format) "Compute FIELD anniversary for each contact, returning FORMAT. Default FIELD value is \"BIRTHDAY\". @@ -512,8 +513,7 @@ Format is a string matching the following format specification: (let ((calendar-date-style 'american) (entry "")) (unless format (setq format org-contacts-birthday-format)) - (loop with date = nil ; FIXME: prevent a warning - for contact in (org-contacts-filter) + (loop for contact in (org-contacts-filter) for anniv = (let ((anniv (cdr (assoc-string (or field org-contacts-birthday-property) (caddr contact)))))