calendar-absolute-from-gregorian return a number of day. But the result is used as if it was a (year month day) list. --- lisp/org-agenda.el | 6 ++---- 1 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 2bec518..66af554 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4879,10 +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))) + (let* ((date1 (org-order-calendar-date-args m1 d1 y1)) + (date2 (org-order-calendar-date-args m2 d2 y2)) (d (calendar-absolute-from-gregorian date))) (org-class (nth 2 date1) (car date1) (nth 1 date1) -- 1.7.5.4