From f4d76465be60d50540d1e4366da372308762d76b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 19 Aug 2015 16:07:22 +0200 Subject: [PATCH] Fix new time logging upon rescheduling * lisp/org.el (org-deadline): (org-schedule): Properly store new time so it is accessible using "%s" in `org-log-note-headings'. Reported-by: Malcolm Purvis --- lisp/org.el | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index f2b4d658d..9141e97b4 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -13342,11 +13342,12 @@ can either be an Org date like \"2011-07-24\" or a delta like \"+2d\"." (user-error "No deadline information to update")))) (t (org-add-planning-info 'deadline time 'closed) - (when (and old-date org-log-redeadline - (not (equal old-date - (substring org-last-inserted-timestamp 1 -1)))) - (org-add-log-setup 'redeadline nil old-date 'findpos - org-log-redeadline)) + (when (and old-date + org-log-redeadline + (not (equal old-date org-last-inserted-timestamp))) + (org-add-log-setup + 'redeadline org-last-inserted-timestamp nil old-date 'findpos + org-log-redeadline)) (when repeater (save-excursion (org-back-to-heading t) @@ -13413,11 +13414,12 @@ either be an Org date like \"2011-07-24\" or a delta like \"+2d\"." (user-error "No scheduled information to update")))) (t (org-add-planning-info 'scheduled time 'closed) - (when (and old-date org-log-reschedule - (not (equal old-date - (substring org-last-inserted-timestamp 1 -1)))) - (org-add-log-setup 'reschedule nil old-date 'findpos - org-log-reschedule)) + (when (and old-date + org-log-reschedule + (not (equal old-date org-last-inserted-timestamp))) + (org-add-log-setup + 'reschedule org-last-inserted-timestamp nil old-date 'findpos + org-log-reschedule)) (when repeater (save-excursion (org-back-to-heading t) -- 2.11.4.GIT