org-clock: Fix :tend with a time zone

* lisp/org-clock.el (org-clocktable-steps): Do not force UTC
  for :tend.

Reported-by: Dale Sedivec <dale@codefu.org>
This commit is contained in:
Nicolas Goaziou 2017-07-24 09:40:58 +02:00
parent 10bdef394d
commit d9713fe3ca
1 changed files with 1 additions and 2 deletions

View File

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