Browse Source

Fix previous commit

Bastien Guerry 5 years ago
parent
commit
450878fb21
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org-clock.el

+ 1 - 1
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))