From f78ed7389de153b4270c67df09eedaeb114dc64a 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. --- 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 b184fc3a3..0dd495493 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1645,7 +1645,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 -- 2.28.0