diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 39b41cac9..f57d1c519 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-05-28 Carsten Dominik + * org-clock.el (org-clock-sum-current-item): Fix positioning bug + when retrieving total clocked time in the subtree. + * org.el (org-quoting-blocks): New variable. 2009-05-27 Carsten Dominik diff --git a/lisp/org-clock.el b/lisp/org-clock.el index a6bd08dc0..2c140507e 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -289,10 +289,11 @@ pointing to it." (defun org-clock-sum-current-item () "Returns time, clocked on current item in total" - (save-restriction - (org-narrow-to-subtree) - (org-clock-sum) - org-clock-file-total-minutes)) + (save-excursion + (save-restriction + (org-narrow-to-subtree) + (org-clock-sum) + org-clock-file-total-minutes))) (defun org-clock-get-clock-string () "Form a clock-string, that will be show in the mode line.