From 5a20035809f986918e66a1816cb13ee93debc0ca Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9mi=20Vanicat?= Date: Mon, 4 Jul 2011 11:00:54 +0200 Subject: [PATCH] org-agenda.el: fix bug in org-diary-class. calendar-absolute-from-gregorian returns a number of day and should not be used here. --- lisp/org-agenda.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 2bec5186e..934bdbc6f 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4879,11 +4879,8 @@ be skipped. This function is here only for backward compatibility and it is deprecated, please use `org-class' instead." - (let* ((date1 (calendar-absolute-from-gregorian - (org-order-calendar-date-args m1 d1 y1))) - (date2 (calendar-absolute-from-gregorian - (org-order-calendar-date-args m2 d2 y2))) - (d (calendar-absolute-from-gregorian date))) + (let* ((date1 (org-order-calendar-date-args m1 d1 y1)) + (date2 (org-order-calendar-date-args m2 d2 y2))) (org-class (nth 2 date1) (car date1) (nth 1 date1) (nth 2 date2) (car date2) (nth 1 date2)