org-agenda.el (org-agenda-get-scheduled): Use "--2d" to ignore the delay for repeated...
authorBastien Guerry <bzg@altern.org>
Tue, 12 Feb 2013 08:51:11 +0000 (12 09:51 +0100)
committerBastien Guerry <bzg@altern.org>
Tue, 12 Feb 2013 08:51:11 +0000 (12 09:51 +0100)
* org-agenda.el (org-agenda-get-scheduled): When the delay is
of the form "--2d" and there is a repeater, ignore the delay
for further repeated occurrences.

Thanks to Michael Brand for suggesting this was somehow needed.

lisp/org-agenda.el

index e009e63..10829c6 100644 (file)
@@ -6295,6 +6295,12 @@ FRACTION is what fraction of the head-warning time has passed."
                        (let ((org-scheduled-delay-days suppress-delay))
                          (org-get-wdays s t t))
                      (org-get-wdays s t)))
+       ;; 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)))
+         (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)))