浏览代码

Merge branch 'maint'

Nicolas Goaziou 8 年之前
父节点
当前提交
0863f8d1ca
共有 1 个文件被更改,包括 6 次插入2 次删除
  1. 6 2
      lisp/org-agenda.el

+ 6 - 2
lisp/org-agenda.el

@@ -5964,7 +5964,9 @@ specification like [h]h:mm."
 		   ((eq org-agenda-skip-deadline-prewarning-if-scheduled
 			'pre-scheduled)
 		    ;; Set pre-warning to no earlier than SCHEDULED.
-		    (min (- deadline scheduled) org-deadline-warning-days))
+		    (min (- deadline
+			    (org-agenda--timestamp-to-absolute scheduled))
+			 org-deadline-warning-days))
 		   ;; Set pre-warning to deadline.
 		   (t 0))))
 	       (wdays (if suppress-prewarning
@@ -6127,7 +6129,9 @@ scheduled items with an hour specification like [h]h:mm."
 		   ((eq org-agenda-skip-scheduled-delay-if-deadline
 			'post-deadline)
 		    ;; Set delay to no later than DEADLINE.
-		    (min (- schedule deadline) org-scheduled-delay-days))
+		    (min (- schedule
+			    (org-agenda--timestamp-to-absolute deadline))
+			 org-scheduled-delay-days))
 		   (t 0))))
 	       (ddays
 		(cond