diff options
| author | Bastien Guerry <bzg@altern.org> | 2013-03-15 10:43:27 (GMT) |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2013-03-15 10:43:27 (GMT) |
| commit | 450878fb215dcb3b4f940eaf6dd724080c3c4300 (patch) | |
| tree | 7f0f969d7b1945df9bbc546924e37ddb98b4fc57 | |
| parent | 1ca26a755aa8b0ac2b13513b2b09efc2c2f650ab (diff) | |
| download | org-mode-450878fb215dcb3b4f940eaf6dd724080c3c4300.zip org-mode-450878fb215dcb3b4f940eaf6dd724080c3c4300.tar.gz | |
Fix previous commit
| -rw-r--r-- | lisp/org-clock.el | 2 |
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)) |