From bd97851c4766f12a064ff27d71a181d37e74dd90 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Sun, 9 Aug 2020 17:57:51 -0500 Subject: [PATCH] org-clock.el: Update org-clock-out-time from org-resolve-clocks * lisp/org-clock.el (org-clock-out): If `at-time' was passed, set org-clock-out-time to that value. Otherwise, set it to now. TINYCHANGE --- lisp/org-clock.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 690ba05b2..88f76beb3 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1580,7 +1580,7 @@ to, overriding the existing value of `org-clock-out-switch-to-state'." org-clock-out-switch-to-state)) (now (org-current-time org-clock-rounding-minutes)) ts te s h m remove) - (setq org-clock-out-time now) + (setq org-clock-out-time (or at-time now)) (save-excursion ; Do not replace this with `with-current-buffer'. (with-no-warnings (set-buffer (org-clocking-buffer))) (save-restriction