tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix previous commit

This commit is contained in:
Bastien Guerry 2013-03-15 11:43:27 +01:00
parent 1ca26a755a
commit 450878fb21
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-clock.el
View File

@ -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))