[Timeline] Use ‘org-time-string-to-seconds’
instead of longer version using ‘org-parse-time-string’.
This commit is contained in:
parent
fe1a509acf
commit
d6e79dcf2d
|
@ -321,12 +321,8 @@ the clock line is to be added to."
|
||||||
(with-current-buffer (marker-buffer target-marker)
|
(with-current-buffer (marker-buffer target-marker)
|
||||||
(timeline-tools-map-clocklines
|
(timeline-tools-map-clocklines
|
||||||
(lambda (timestamp-1 timestamp-2)
|
(lambda (timestamp-1 timestamp-2)
|
||||||
(let ((current-start (float-time
|
(let ((current-start (org-time-string-to-seconds timestamp-1))
|
||||||
(apply #'encode-time
|
(current-end (org-time-string-to-seconds timestamp-2))
|
||||||
(org-parse-time-string timestamp-1))))
|
|
||||||
(current-end (float-time
|
|
||||||
(apply #'encode-time
|
|
||||||
(org-parse-time-string timestamp-2))))
|
|
||||||
(kill-whole-line nil) ; don’t delete newlines if not asked to
|
(kill-whole-line nil) ; don’t delete newlines if not asked to
|
||||||
)
|
)
|
||||||
(cond
|
(cond
|
||||||
|
|
Loading…
Reference in New Issue
Block a user