[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 0495961f36 2/3: org-auto-repeat-maybe: Use effectiv
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 0495961f36 2/3: org-auto-repeat-maybe: Use effective time for "LAST_REPEAT" |
Date: |
Thu, 7 Jul 2022 06:57:47 -0400 (EDT) |
branch: externals/org
commit 0495961f3603e77b93be7eca728b547f9a5c23ce
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-auto-repeat-maybe: Use effective time for "LAST_REPEAT"
* lisp/org.el (org-auto-repeat-maybe): Use effective time when
recording LAST_REPEAT property.
Fixes https://orgmode.org/list/87sfnk7l0h.fsf@jonreeve.com
---
lisp/org.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 38a50d2312..661efeb9c9 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -9666,7 +9666,8 @@ This function is run automatically after each state
change to a DONE state."
(while (re-search-forward org-clock-line-re end t)
(when (org-at-clock-log-p) (throw :clock t))))))
(org-entry-put nil "LAST_REPEAT" (format-time-string
- (org-time-stamp-format t t))))
+ (org-time-stamp-format t t)
+ (org-current-effective-time))))
(when org-log-repeat
(if org-log-setup
;; We are already setup for some record.