summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-19 16:07:22 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-19 16:07:22 +0200
commitf4d76465be60d50540d1e4366da372308762d76b (patch)
treead311703ef7d7f8d79e62c6d45481df0bc0eeea4
parent93b73bd3032bf03f129c81fb199fbaeb31a772a3 (diff)
downloadorg-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-xlisp/org.el22
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)