diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-12-04 00:31:30 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-12-04 00:31:30 +0100 |
commit | a7cc04be03a354a369162d9176ffae43e01d9400 (patch) | |
tree | 0e361da285f06dc666f658bf201496778705a9d2 | |
parent | 8cdd4ff98af1a46de23c778faad8b30ca55ac825 (diff) | |
download | org-mode-a7cc04be03a354a369162d9176ffae43e01d9400.tar.gz |
Use org-today again in org-habit.el
-rw-r--r-- | lisp/org-habit.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/org-habit.el b/lisp/org-habit.el index 394b4fb..16ddd8d 100644 --- a/lisp/org-habit.el +++ b/lisp/org-habit.el @@ -197,10 +197,7 @@ This list represents a \"habit\" for the rest of this module." "Determine the relative priority of a habit. This must take into account not just urgency, but consistency as well." (let ((pri 1000) - (now (time-to-days - (or moment - (time-subtract (current-time) - (list 0 (* 3600 org-extend-today-until) 0))))) + (now (if moment (time-to-days moment) (org-today))) (scheduled (org-habit-scheduled habit)) (deadline (org-habit-deadline habit))) ;; add 10 for every day past the scheduled date, and subtract for every |