From 238c815502e80db51b06573fd97a9bb741c4dfe2 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sat, 4 Dec 2010 00:19:22 +0100 Subject: [PATCH] Revert "org: use org-today in habits auto repeat" This reverts commit d1eb6cb25b9f7cd3c5222c41ddd088c7217e820c. --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 3edd8b195..66514a251 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11392,13 +11392,13 @@ This function is run automatically after each state change to a DONE state." ((equal (match-string 1 ts) ".") ;; Shift starting date to today (org-timestamp-change - (- (org-today) (time-to-days time)) + (- (time-to-days (current-time)) (time-to-days time)) 'day)) ((equal (match-string 1 ts) "+") (let ((nshiftmax 10) (nshift 0)) (while (or (= nshift 0) (<= (time-to-days time) - (org-today))) + (time-to-days (current-time)))) (when (= (incf nshift) nshiftmax) (or (y-or-n-p (message "%d repeater intervals were not enough to shift date past today. Continue? " nshift)) (error "Abort")))