From 5d347b11124e55fc26bbafbf416692168141ae43 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 3 Dec 2017 10:17:19 +0100 Subject: [PATCH] =?UTF-8?q?[Org]=20Use=20=E2=80=98sort=E2=80=99=20instead?= =?UTF-8?q?=20of=20=E2=80=98cl-sort=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Should be equally fast, and is simpler. --- site-lisp/db-org.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 62973ce..82f75d5 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -1053,9 +1053,9 @@ resulting list are sorted by START, ascending." (dolist (clock-time (cdr entry)) (push (list (car clock-time) (cdr clock-time) (car entry)) turned-around-timeline))) - (cl-sort turned-around-timeline - (lambda (entry-1 entry-2) - (< (car entry-1) (car entry-2)))))) + (sort turned-around-timeline + (lambda (entry-1 entry-2) + (< (car entry-1) (car entry-2)))))) (defun db/org-format-timeline (tstart tend &optional files) "Display timeline of tasks in FILES between TSTART and TEND.