jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change nreverse to non-destructive version

Browse source
This commit is contained in:
Imran Khan 2020-08-23 00:20:16 +06:00
parent 6633dbb276
commit 5d84992b54
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
org-ql.el
View file

@ -1598,7 +1598,7 @@ PREDICATES is a list of one or more sorting methods, including:
;; Put at end of list if not found ;; Put at end of list if not found
(1+ (length org-todo-keywords-1))))))) (1+ (length org-todo-keywords-1)))))))
(-flatten-n 1 (-map #'cdr sorted-groups))))) (-flatten-n 1 (-map #'cdr sorted-groups)))))
(cl-loop for pred in (nreverse predicates) (cl-loop for pred in (reverse predicates)
do (setq items (if (eq pred 'todo) do (setq items (if (eq pred 'todo)
(sort-by-todo-keyword items) (sort-by-todo-keyword items)
(-sort (sorter pred) items))) (-sort (sorter pred) items)))