From 40cd29c8c50fea5bc42bb79f6e5f9334a12977e6 Mon Sep 17 00:00:00 2001 From: Akira Komamura Date: Sun, 28 Feb 2021 23:21:01 +0900 Subject: [PATCH] Change: Use (apply #'append) for flattening a list This will be faster than -flatten-n, since -flatten-n is now an indirection of this expression. See https://github.com/magnars/dash.el/issues/373#issuecomment-787446986 --- org-ql.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/org-ql.el b/org-ql.el index 90586c3..2137ff5 100644 --- a/org-ql.el +++ b/org-ql.el @@ -269,7 +269,7 @@ returns nil or non-nil." (user-error "Not an Org buffer: %s" (buffer-name))) (org-ql--select-cached :query query :preamble preamble :preamble-case-fold preamble-case-fold :predicate predicate :action action :narrow narrow))) - (-flatten-n 1))) + (apply #'append))) (--each orig-fns ;; Restore original function mappings. (-let (((&plist :name :fn) it))