Applied, thanks. - Carsten
On May 17, 2010, at 1:51 PM, Bernt Hansen wrote:
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 07e2e45..68a40ce 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1396,17 +1396,18 @@ nil are excluded from the clock summation." (* 60 (string-to-number (match-string 4)))))) (t ;; A headline ;; Add the currently clocking item time to the total- (let ((org-clock-start-time-as-float (org-float-time org-clock- start-time)))- (when (and org-clock-report-include-clocking-task - (equal (org-clocking-buffer) (current-buffer)) - (equal (marker-position org-clock-hd-marker) (point)) - (>= org-clock-start-time-as-float tstart) - (<= org-clock-start-time-as-float tend)) - (let ((time (floor (- (org-float-time) - org-clock-start-time-as-float) 60))) - (setq t1 (+ t1 time))))) + (when (and org-clock-report-include-clocking-task + (equal (org-clocking-buffer) (current-buffer)) + (equal (marker-position org-clock-hd-marker) (point)) + tstart + tend + (>= (org-float-time org-clock-start-time) tstart) + (<= (org-float-time org-clock-start-time) tend)) + (let ((time (floor (- (org-float-time) + (org-float-time org-clock-start-time)) 60))) + (setq t1 (+ t1 time)))) (let* ((headline-forced - (get-text-property (point) + (get-text-property (point):org-clock-force-headline- inclusion))(headline-included (or (null headline-filter)
- Carsten _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. [email protected] http://lists.gnu.org/mailman/listinfo/emacs-orgmode
