tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix commit 5bde60c 

Thanks to Michael Brand for reporting those problems.
This commit is contained in:
Bastien Guerry 2013-02-12 17:31:37 +01:00
parent 060caa8023
commit d38f79be97
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-agenda.el
View File

@ -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 ;; Use a delay of 0 when there is a repeater and the delay is
;; of the form --3d ;; of the form --3d
(when (and (save-match-data (string-match "--[0-9]+[hdwmy]" s)) (when (and (save-match-data (string-match "--[0-9]+[hdwmy]" s))
(not (= (org-time-string-to-absolute (< (org-time-string-to-absolute s)
s d1 'past nil (current-buffer) pos) d2))) (org-time-string-to-absolute
s d2 'past nil (current-buffer) pos)))
(setq ddays 0)) (setq ddays 0))
;; When to show a scheduled item in the calendar: ;; When to show a scheduled item in the calendar:
;; If it is on or past the date. ;; If it is on or past the date.
(when (or (and (> ddays 0) (= diff (- ddays))) (when (or (and (> ddays 0) (= diff (- ddays)))
(and (zerop ddays) (= diff 0)) (and (zerop ddays) (= diff 0))
(and (< diff 0) (and (< (+ diff ddays) 0)
(< (abs diff) org-scheduled-past-days) (< (abs diff) org-scheduled-past-days)
(and todayp (not org-agenda-only-exact-dates))) (and todayp (not org-agenda-only-exact-dates)))
;; org-is-habit-p uses org-entry-get, which is expansive ;; org-is-habit-p uses org-entry-get, which is expansive