From 3f7b54f0100013c9a37be10256538f76abdd7112 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sat, 15 Aug 2020 16:31:48 +0800 Subject: [PATCH] org-clock.el: Fix calculated clocking sum in inlinetasks * lisp/org-clock.el (org-clock-sum-current-item): Do not include clocked time from the parent when inside inlinetask. Calling `org-narrow-to-subtree' from inside inlinetask would narrow to the parent's subtree (correct behaviour). However, it is not what we want when calculating the clocking sum. Inlinetask case should be treated specially. --- lisp/org-clock.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 0dd495493..6a25f1e18 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1956,7 +1956,12 @@ PROPNAME lets you set a custom text property instead of :org-clock-minutes." "Return time, clocked on current item in total." (save-excursion (save-restriction - (org-narrow-to-subtree) + (if (and (featurep 'org-inlinetask) + (or (org-inlinetask-at-task-p) + (org-inlinetask-in-task-p))) + (narrow-to-region (save-excursion (org-inlinetask-goto-beginning) (point)) + (save-excursion (org-inlinetask-goto-end) (point))) + (org-narrow-to-subtree)) (org-clock-sum tstart) org-clock-file-total-minutes))) -- 2.26.2