summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-03-15 10:43:27 (GMT)
committer Bastien Guerry <bzg@altern.org>2013-03-15 10:43:27 (GMT)
commit450878fb215dcb3b4f940eaf6dd724080c3c4300 (patch)
tree7f0f969d7b1945df9bbc546924e37ddb98b4fc57
parent1ca26a755aa8b0ac2b13513b2b09efc2c2f650ab (diff)
downloadorg-mode-450878fb215dcb3b4f940eaf6dd724080c3c4300.zip
org-mode-450878fb215dcb3b4f940eaf6dd724080c3c4300.tar.gz
Fix previous commit
-rw-r--r--lisp/org-clock.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index fd0758b..6eeb32b 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))