emacs-orgmode
[Top][All Lists]
Advanced

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

Re: [Orgmode] Re: org-bbdb and 1. March


From: Carsten Dominik
Subject: Re: [Orgmode] Re: org-bbdb and 1. March
Date: Mon, 6 Oct 2008 20:45:36 +0200

Applied, thanks.

- Carsten

On Oct 6, 2008, at 6:45 PM, Thomas Baumann wrote:

confirmed, thanks for reporting.
Carsten surely will checkin the following patch soon.

Thomas

diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el
index ad5265f..044b74b 100644
--- a/lisp/org-bbdb.el
+++ b/lisp/org-bbdb.el
@@ -291,11 +291,16 @@ This is used by Org to re-create the anniversary hash table."
         (y (nth 2 date))  ; year
         (annivs (gethash (list m d) org-bbdb-anniv-hash))
         (text ())
-         split class form rec)
+         split class form rec recs)

    ;; we don't want to miss people born on Feb. 29th
-    (when (and (= m 3) (= d 1) (not (calendar-leap-year-p y)))
- (setq annivs (cons annivs (gethash (list 2 29) org-bbdb-anniv- hash))))
+    (when (and (= m 3) (= d 1)
+               (not (null (gethash (list 2 29) org-bbdb-anniv-hash)))
+               (not (calendar-leap-year-p y)))
+      (setq recs (gethash (list 2 29) org-bbdb-anniv-hash))
+      (while (setq rec (pop recs))
+        (push rec annivs)))
+



_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode





reply via email to

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