From d6e79dcf2d13338ecfbb9b29329ac69f633686be Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Wed, 24 Jan 2018 20:54:48 +0100 Subject: [PATCH] =?UTF-8?q?[Timeline]=20Use=20=E2=80=98org-time-string-to-?= =?UTF-8?q?seconds=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit instead of longer version using ‘org-parse-time-string’. --- site-lisp/timeline-tools.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/site-lisp/timeline-tools.el b/site-lisp/timeline-tools.el index fe03d0a..579bce3 100644 --- a/site-lisp/timeline-tools.el +++ b/site-lisp/timeline-tools.el @@ -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) ; don’t delete newlines if not asked to ) (cond