diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-12-04 00:19:22 +0100 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-12-04 00:19:22 +0100 |
| commit | 238c815502e80db51b06573fd97a9bb741c4dfe2 (patch) | |
| tree | f46ae0eee57b49307dee4c1f2c76d11c5ea30327 | |
| parent | 384e4f08e494ba73b25a89b8c5557fde804a1b97 (diff) | |
| download | org-mode-238c815502e80db51b06573fd97a9bb741c4dfe2.tar.gz | |
Revert "org: use org-today in habits auto repeat"
This reverts commit d1eb6cb25b9f7cd3c5222c41ddd088c7217e820c.
| -rw-r--r-- | lisp/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 3edd8b1..66514a2 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"))) |