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
This commit is contained in:
Akira Komamura 2021-02-28 23:21:01 +09:00
parent 208e103ecc
commit 40cd29c8c5

View file

@ -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))