From 655c08dcc86cdcd46097bd22e293314f42456426 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 27 Nov 2018 00:18:28 +0100 Subject: [PATCH] org-clock: Fix failing tests * lisp/org-clock.el (org-clocktable-steps): Fix type of START and END bindings. --- lisp/org-clock.el | 24 ++++++++++-------------- 1 file changed, 10 insertions(+), 14 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 0fc15a0fa..0f146ee43 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2706,21 +2706,17 @@ a number of clock tables." ;; timestamp string. The `:block' property has precedence ;; over `:tstart' and `:tend'. (start - (apply #'encode-time - (pcase (if range (car range) (plist-get params :tstart)) - ((and (pred numberp) n) - (pcase-let - ((`(,m ,d ,y) (calendar-gregorian-from-absolute n))) - (list 0 0 org-extend-today-until d m y))) - (timestamp (org-matcher-time timestamp))))) + (pcase (if range (car range) (plist-get params :tstart)) + ((and (pred numberp) n) + (pcase-let ((`(,m ,d ,y) (calendar-gregorian-from-absolute n))) + (apply #'encode-time (list 0 0 org-extend-today-until d m y)))) + (timestamp (seconds-to-time (org-matcher-time timestamp))))) (end - (apply #'encode-time - (pcase (if range (nth 1 range) (plist-get params :tend)) - ((and (pred numberp) n) - (pcase-let - ((`(,m ,d ,y) (calendar-gregorian-from-absolute n))) - (list 0 0 org-extend-today-until d m y))) - (timestamp (org-matcher-time timestamp)))))) + (pcase (if range (nth 1 range) (plist-get params :tend)) + ((and (pred numberp) n) + (pcase-let ((`(,m ,d ,y) (calendar-gregorian-from-absolute n))) + (apply #'encode-time (list 0 0 org-extend-today-until d m y)))) + (timestamp (seconds-to-time (org-matcher-time timestamp)))))) (while (time-less-p start end) (unless (bolp) (insert "\n")) ;; Insert header before each clock table.