浏览代码

Fix commit 5bde60c

Thanks to Michael Brand for reporting those problems.
Bastien Guerry 12 年之前
父节点
当前提交
d38f79be97
共有 1 个文件被更改,包括 4 次插入3 次删除
  1. 4 3
      lisp/org-agenda.el

+ 4 - 3
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