summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2010-12-04 00:31:30 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2010-12-04 00:31:30 +0100
commita7cc04be03a354a369162d9176ffae43e01d9400 (patch)
tree0e361da285f06dc666f658bf201496778705a9d2
parent8cdd4ff98af1a46de23c778faad8b30ca55ac825 (diff)
downloadorg-mode-a7cc04be03a354a369162d9176ffae43e01d9400.tar.gz
Use org-today again in org-habit.el
-rw-r--r--lisp/org-habit.el5
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