Merge branch 'maint'

lisp/org-habit.el

@@ -343,7 +343,8 @@ current time."
 	      (if (and in-the-past-p
 		       (not last-done-date)
 		       (not (< scheduled now)))
-		  (if (= start (car all-done-dates))
+		  (if (and all-done-dates (= (car all-done-dates) start))
+		      ;; This is the very first done of this habit.
 		      '(org-habit-ready-face . org-habit-ready-future-face)
 		    '(org-habit-clear-face . org-habit-clear-future-face))
 		(org-habit-get-faces