From d38f79be97c0873df661c6741de7d0796a756c16 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 12 Feb 2013 17:31:37 +0100 Subject: [PATCH] Fix commit 5bde60c Thanks to Michael Brand for reporting those problems. --- lisp/org-agenda.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 10829c669..1ae40700a 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6298,14 +6298,15 @@ FRACTION is what fraction of the head-warning time has passed." ;; Use a delay of 0 when there is a repeater and the delay is ;; of the form --3d (when (and (save-match-data (string-match "--[0-9]+[hdwmy]" s)) - (not (= (org-time-string-to-absolute - s d1 'past nil (current-buffer) pos) d2))) + (< (org-time-string-to-absolute s) + (org-time-string-to-absolute + s d2 'past nil (current-buffer) pos))) (setq ddays 0)) ;; When to show a scheduled item in the calendar: ;; If it is on or past the date. (when (or (and (> ddays 0) (= diff (- ddays))) (and (zerop ddays) (= diff 0)) - (and (< diff 0) + (and (< (+ diff ddays) 0) (< (abs diff) org-scheduled-past-days) (and todayp (not org-agenda-only-exact-dates))) ;; org-is-habit-p uses org-entry-get, which is expansive -- 2.11.4.GIT