aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

orgcontacts.el: Fix date' being broken in org-contacts-anniversaries'.

Browse source 
* 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 680dc1f24.

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
This commit is contained in:
Rüdiger Sonderfeld 2013-03-03 15:08:12 +01:00 committed by Bastien Guerry
parent b34f505d38
commit fb5c9dcec9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
org-contacts.el
View file

@ -499,6 +499,7 @@ A group FOO is composed of contacts with the tag FOO."
;; show the next heading ;; show the next heading
(org-flag-heading nil))))))) (org-flag-heading nil)))))))
(org-no-warnings (defvar date)) ;; unprefixed, from calendar.el
(defun org-contacts-anniversaries (&optional field format) (defun org-contacts-anniversaries (&optional field format)
"Compute FIELD anniversary for each contact, returning FORMAT. "Compute FIELD anniversary for each contact, returning FORMAT.
Default FIELD value is \"BIRTHDAY\". Default FIELD value is \"BIRTHDAY\".
@ -512,8 +513,7 @@ Format is a string matching the following format specification:
(let ((calendar-date-style 'american) (let ((calendar-date-style 'american)
(entry "")) (entry ""))
(unless format (setq format org-contacts-birthday-format)) (unless format (setq format org-contacts-birthday-format))
(loop with date = nil ; FIXME: prevent a warning (loop for contact in (org-contacts-filter)
for contact in (org-contacts-filter)
for anniv = (let ((anniv (cdr (assoc-string for anniv = (let ((anniv (cdr (assoc-string
(or field org-contacts-birthday-property) (or field org-contacts-birthday-property)
(caddr contact))))) (caddr contact)))))