From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?ISO-8859-1?Q?R=FCdiger?= Sonderfeld Subject: [PATCH] orgcontacts.el: Fix `date' being broken in `org-contacts-anniversaries'. Date: Sun, 03 Mar 2013 15:08:12 +0100 Message-ID: <1654122.Ps5ZaFEW4I@descartes> Mime-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([208.118.235.92]:38376) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UC9aS-000880-1O for emacs-orgmode@gnu.org; Sun, 03 Mar 2013 09:08:26 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UC9aP-000138-BK for emacs-orgmode@gnu.org; Sun, 03 Mar 2013 09:08:23 -0500 Received: from ptmx.org ([178.63.28.110]:40297) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UC9aP-00012v-4f for emacs-orgmode@gnu.org; Sun, 03 Mar 2013 09:08:21 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * 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=C3=BCdiger 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.e= l index 4ffe360..d849e7f 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 FO= O." ;; show the next heading (org-flag-heading nil))))))) =20 +(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 sp= ecification: (let ((calendar-date-style 'american) (entry "")) (unless format (setq format org-contacts-birthday-format)) - (loop with date =3D nil =09=09; FIXME: prevent a warning -=09 for contact in (org-contacts-filter) + (loop for contact in (org-contacts-filter) for anniv =3D (let ((anniv (cdr (assoc-string (or field org-contacts-birthd= ay-property) (caddr contact))))) --=20 1.8.1.1