[Timeline] Use ‘org-time-string-to-seconds’

instead of longer version using ‘org-parse-time-string’.
This commit is contained in:
Daniel - 2018-01-24 20:54:48 +01:00
parent fe1a509acf
commit d6e79dcf2d
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 2 additions and 6 deletions

View File

@ -321,12 +321,8 @@ the clock line is to be added to."
(with-current-buffer (marker-buffer target-marker)
(timeline-tools-map-clocklines
(lambda (timestamp-1 timestamp-2)
(let ((current-start (float-time
(apply #'encode-time
(org-parse-time-string timestamp-1))))
(current-end (float-time
(apply #'encode-time
(org-parse-time-string timestamp-2))))
(let ((current-start (org-time-string-to-seconds timestamp-1))
(current-end (org-time-string-to-seconds timestamp-2))
(kill-whole-line nil) ; dont delete newlines if not asked to
)
(cond