org-agenda.el: fix bug in org-diary-class.

calendar-absolute-from-gregorian returns a number of day and
should not be used here.
This commit is contained in:
Rémi Vanicat 2011-07-04 11:00:54 +02:00 committed by Bastien Guerry
parent 429b1cc81a
commit 5a20035809
1 changed files with 2 additions and 5 deletions

View File

@ -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)