diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-11-03 21:46:19 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-11-03 21:46:19 +0100 |
commit | 6e51b42e164df978df66580b0ca82b4fc84c7e0e (patch) | |
tree | 4736963f382d519223b7d1140bd49a32d80fc9cb | |
parent | 7d30f5f44a7107bb1b2825846fb636260ffde0e6 (diff) | |
download | org-mode-6e51b42e164df978df66580b0ca82b4fc84c7e0e.tar.gz |
org-clock: Fix wrong type error
* lisp/org-clock.el (org-clocktable-steps): Fix wrong type error.
-rw-r--r-- | lisp/org-clock.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 6292a25..672523f 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -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: |