org-clock: Fix wrong type error

* lisp/org-clock.el (org-clocktable-steps): Fix wrong type error.
This commit is contained in:
Nicolas Goaziou 2018-11-03 21:46:19 +01:00
parent 7d30f5f44a
commit 6e51b42e16
1 changed files with 2 additions and 2 deletions

View File

@ -2726,9 +2726,9 @@ The TS argument has the same type as the return values of
(org-clocktable-increment-day ts ; decrement
(- ws dow))))
ts))
(while (< tsb te)
(while (< (float-time tsb) te)
(unless (bolp) (insert "\n"))
(let* ((start-time (seconds-to-time (max tsb ts)))
(let* ((start-time (seconds-to-time (max (float-time tsb) ts)))
(dow (nth 6 (decode-time (seconds-to-time tsb))))
(days-to-skip (cond ((eq step0 'day) 1)
;; else 'week: