mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-31 11:13:59 +00:00
Code

org-agenda.el (org-agenda-get-scheduled): Use "--2d" to ignore the delay for repeated occurrences

Browse Source 
* 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.
This commit is contained in:
Bastien Guerry 2013-02-12 09:51:11 +01:00
parent 1f5edba494
commit 5bde60c68c
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-agenda.el
View 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)))