From 5d84992b54120f46fcaa4023885335ee730de30f Mon Sep 17 00:00:00 2001 From: Imran Khan Date: Sun, 23 Aug 2020 00:20:16 +0600 Subject: [PATCH] Change nreverse to non-destructive version --- org-ql.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/org-ql.el b/org-ql.el index 4196ab4..14dc9dd 100644 --- a/org-ql.el +++ b/org-ql.el @@ -1598,7 +1598,7 @@ PREDICATES is a list of one or more sorting methods, including: ;; Put at end of list if not found (1+ (length org-todo-keywords-1))))))) (-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) (sort-by-todo-keyword items) (-sort (sorter pred) items)))