diff options
| author | Julien Danjou <julien@danjou.info> | 2010-11-29 19:18:34 +0000 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-12-01 00:48:51 +0100 |
| commit | d1eb6cb25b9f7cd3c5222c41ddd088c7217e820c (patch) | |
| tree | 11861b80aff469e8d1701b2ad0868a379b83a90c | |
| parent | 2e08843369a89b4ccad40057b8250122b964dee9 (diff) | |
| download | org-mode-d1eb6cb25b9f7cd3c5222c41ddd088c7217e820c.tar.gz | |
org: use org-today in habits auto repeat
* org.el (org-auto-repeat-maybe): Use org-today.
Signed-off-by: Julien Danjou <julien@danjou.info>
| -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 3d9fe39..9c9c2d1 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11393,13 +11393,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 - (- (time-to-days (current-time)) (time-to-days time)) + (- (org-today) (time-to-days time)) 'day)) ((equal (match-string 1 ts) "+") (let ((nshiftmax 10) (nshift 0)) (while (or (= nshift 0) (<= (time-to-days time) - (time-to-days (current-time)))) + (org-today))) (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"))) |