diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 7c1c6c24e..cba8b17c2 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2708,8 +2708,7 @@ LEVEL is an integer. Indent by two spaces per level above 1." (pcase-let ((`(,month ,day ,year) (calendar-gregorian-from-absolute te))) (setq te (float-time (encode-time 0 0 0 day month year))))) (te - (setq te (float-time - (apply #'encode-time (org-parse-time-string te nil t)))))) + (setq te (float-time (apply #'encode-time (org-parse-time-string te)))))) (setq tsb (if (eq step0 'week) (- ts (* 86400 (- (nth 6 (decode-time (seconds-to-time ts))) ws)))