Patch 417 (http://patchwork.newartisans.com/patch/417/) is now "Accepted".
Maintainer comment: No comment This relates to the following submission: http://mid.gmane.org/%3C1291040314-1884-4-git-send-email-julien%40danjou.info%3E Here is the original message containing the patch: > Content-Type: text/plain; charset="utf-8" > MIME-Version: 1.0 > Content-Transfer-Encoding: 7bit > Subject: [Orgmode,4/4] org: use org-today in habits auto repeat > Date: Mon, 29 Nov 2010 19:18:34 -0000 > From: Julien Danjou <jul...@danjou.info> > X-Patchwork-Id: 417 > Message-Id: <1291040314-1884-4-git-send-email-jul...@danjou.info> > To: emacs-orgmode@gnu.org > Cc: Julien Danjou <jul...@danjou.info> > > * org.el (org-auto-repeat-maybe): Use org-today. > > Signed-off-by: Julien Danjou <jul...@danjou.info> > > --- > lisp/org.el | 4 ++-- > 1 files changed, 2 insertions(+), 2 deletions(-) > > diff --git a/lisp/org.el b/lisp/org.el > index 6c4c433..7a76559 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"))) > _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode