diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-19 16:07:22 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-19 16:07:22 +0200 |
commit | f4d76465be60d50540d1e4366da372308762d76b (patch) | |
tree | ad311703ef7d7f8d79e62c6d45481df0bc0eeea4 | |
parent | 93b73bd3032bf03f129c81fb199fbaeb31a772a3 (diff) | |
download | org-mode-f4d76465be60d50540d1e4366da372308762d76b.tar.gz |
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 <malcolm@purvis.id.au>
<http://permalink.gmane.org/gmane.emacs.orgmode/100211>
-rwxr-xr-x | lisp/org.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lisp/org.el b/lisp/org.el index f2b4d65..9141e97 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) |