From 450878fb215dcb3b4f940eaf6dd724080c3c4300 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 15 Mar 2013 11:43:27 +0100 Subject: [PATCH] Fix previous commit --- lisp/org-clock.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index fd0758b1b..6eeb32bee 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2576,7 +2576,7 @@ from the dynamic block definition." (apply 'encode-time (org-parse-time-string te)))))) (setq tsb (if (eq step0 'week) - (- ts (* 86400 (- (nth (abs (- 7 ws)) (decode-time (seconds-to-time ts))) 1))) + (- ts (* 86400 (- (nth 6 (decode-time (seconds-to-time ts))) ws))) ts)) (setq p1 (plist-put p1 :header "")) (setq p1 (plist-put p1 :step nil))