[Org] Use ‘sort’ instead of ‘cl-sort’
Should be equally fast, and is simpler.
This commit is contained in:
parent
62a2154d28
commit
5d347b1112
|
@ -1053,7 +1053,7 @@ resulting list are sorted by START, ascending."
|
||||||
(dolist (clock-time (cdr entry))
|
(dolist (clock-time (cdr entry))
|
||||||
(push (list (car clock-time) (cdr clock-time) (car entry))
|
(push (list (car clock-time) (cdr clock-time) (car entry))
|
||||||
turned-around-timeline)))
|
turned-around-timeline)))
|
||||||
(cl-sort turned-around-timeline
|
(sort turned-around-timeline
|
||||||
(lambda (entry-1 entry-2)
|
(lambda (entry-1 entry-2)
|
||||||
(< (car entry-1) (car entry-2))))))
|
(< (car entry-1) (car entry-2))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue