From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?utf-8?Q?R=C3=A9mi_Vanicat?= Subject: [PATCH] Don't call calendar-absolute-from-gregorian in org-diary-class Date: Sun, 03 Jul 2011 16:45:15 +0200 Message-ID: <87iprjmnic.dlv@debian.org> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:40167) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QdNvQ-0000Vq-Lr for emacs-orgmode@gnu.org; Sun, 03 Jul 2011 10:45:33 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QdNvN-0001BB-RX for emacs-orgmode@gnu.org; Sun, 03 Jul 2011 10:45:32 -0400 Received: from lo.gmane.org ([80.91.229.12]:47568) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QdNvN-0001Ac-8a for emacs-orgmode@gnu.org; Sun, 03 Jul 2011 10:45:29 -0400 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1QdNvL-0000Pz-PV for emacs-orgmode@gnu.org; Sun, 03 Jul 2011 16:45:27 +0200 Received: from 29.191.138.88.rev.sfr.net ([88.138.191.29]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 03 Jul 2011 16:45:27 +0200 Received: from vanicat by 29.191.138.88.rev.sfr.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 03 Jul 2011 16:45:27 +0200 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 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