Browse Source

Use org-today again in org-habit.el

Carsten Dominik 10 years ago
parent
commit
a7cc04be03
1 changed files with 1 additions and 4 deletions
  1. 1 4
      lisp/org-habit.el

+ 1 - 4
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