tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode

Browse source
This commit is contained in:
Eric Schulte 2010-08-27 09:45:34 -06:00
parent 344163403b 3a06bc3730
commit 2a400ef016
1 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/org-clock.el
View file

@ -1971,10 +1971,22 @@ the currently selected interval size."
(when block (when block
(setq cc (org-clock-special-range block nil t) (setq cc (org-clock-special-range block nil t)
ts (car cc) te (nth 1 cc) range-text (nth 2 cc))) ts (car cc) te (nth 1 cc) range-text (nth 2 cc)))
(if ts (setq ts (org-float-time (cond
(apply 'encode-time (org-parse-time-string ts))))) ((numberp ts)
(if te (setq te (org-float-time ;; If ts is a number, it's an absolute day number from org-agenda.
(apply 'encode-time (org-parse-time-string te))))) (destructuring-bind (month day year) (calendar-gregorian-from-absolute ts)
(setq ts (org-float-time (encode-time 0 0 0 day month year)))))
(ts
(setq ts (org-float-time
(apply 'encode-time (org-parse-time-string ts))))))
(cond
((numberp te)
;; Likewise for te.
(destructuring-bind (month day year) (calendar-gregorian-from-absolute te)
(setq te (org-float-time (encode-time 0 0 0 day month year)))))
(te
(setq te (org-float-time
(apply 'encode-time (org-parse-time-string te))))))
(setq p1 (plist-put p1 :header "")) (setq p1 (plist-put p1 :header ""))
(setq p1 (plist-put p1 :step nil)) (setq p1 (plist-put p1 :step nil))
(setq p1 (plist-put p1 :block nil)) (setq p1 (plist-put p1 :block nil))