소스 검색

Merge branch 'maint'

Nicolas Goaziou 8 년 전
부모
커밋
1658cb26ff
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      lisp/org-agenda.el

+ 1 - 1
lisp/org-agenda.el

@@ -6365,7 +6365,7 @@ scheduled items with an hour specification like [h]h:mm."
 			;; schedule.
 			(t (format next (1+ diff)))))
 		     head level category tags time nil habitp))
-		   (face (cond ((and (not habitp) (< current today))
+		   (face (cond ((and (not habitp) pastschedp)
 				'org-scheduled-previously)
 			       (todayp 'org-scheduled-today)
 			       (t 'org-scheduled)))