From f1191b86e377538b58f94fba79075621b5858803 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 6 Jan 2013 09:11:08 +0100 Subject: [PATCH] org-agenda.el (org-agenda-finalize): Only mark clocking task when there is one * org-agenda.el (org-agenda-finalize): Only mark clocking task when there is one. --- lisp/org-agenda.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 03bb69e9f..a3bf996ea 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3538,9 +3538,10 @@ generating a new one." (org-agenda-dim-blocked-tasks)) ;; We need to widen when `org-agenda-finalize' is called from ;; `org-agenda-change-all-lines' (e.g. in `org-agenda-clock-in') - (save-restriction - (widen) - (org-agenda-mark-clocking-task)) + (when org-clock-current-task + (save-restriction + (widen) + (org-agenda-mark-clocking-task))) (when org-agenda-entry-text-mode (org-agenda-entry-text-hide) (org-agenda-entry-text-show))