diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2020-07-04 12:44:13 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2020-07-04 12:44:13 +0200 |
commit | 5427a74071c906e14b6887a3441d6620aa31d027 (patch) | |
tree | 39f4a429cc9b7942e7cda8982a39ca7404c73f99 | |
parent | f471768a54d8921ff383516af6a605adc061af30 (diff) | |
download | org-mode-5427a74071c906e14b6887a3441d6620aa31d027.tar.gz |
habit: Fix of the fix of color for very first done of a habit
* lisp/org-habit.el (org-habit-build-graph): Check if there is a done
date at all.
Reported by Colin Baxter, see https://orgmode.org/list/877dvjve9v.fsf@yandex.com/.
See f471768a5 for the related fix.
-rw-r--r-- | lisp/org-habit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-habit.el b/lisp/org-habit.el index 8edeffc..f76f0f2 100644 --- a/lisp/org-habit.el +++ b/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 |