Clocking: Fix bug in the new cocking code

The cursor could move while collecting the total time for the current
subtree.

2 files changed, 8 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39b41ca..f57d1c5 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-05-28  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* 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  <carsten.dominik@gmail.com>
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index a6bd08d..2c14050 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.