diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2020-07-04 12:51:53 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2020-07-04 12:51:53 +0200 |
commit | 3327fbb6d4f3f3e672b82d880de68b79dc99f04a (patch) | |
tree | a061bab2cee0fbb86e97bfc403116e156b73ae38 | |
parent | a3f01e183fb7ec92d481336c62ba7ebd06b22288 (diff) | |
parent | 5427a74071c906e14b6887a3441d6620aa31d027 (diff) | |
download | org-mode-3327fbb6d4f3f3e672b82d880de68b79dc99f04a.tar.gz |
Merge branch 'maint'
-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 |