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

Change: Use (apply #'append) for flattening a list

Browse source 
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
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

@ -269,7 +269,7 @@ returns nil or non-nil."
(user-error "Not an Org buffer: %s" (buffer-name))) (user-error "Not an Org buffer: %s" (buffer-name)))
(org-ql--select-cached :query query :preamble preamble :preamble-case-fold preamble-case-fold (org-ql--select-cached :query query :preamble preamble :preamble-case-fold preamble-case-fold
:predicate predicate :action action :narrow narrow))) :predicate predicate :action action :narrow narrow)))
(-flatten-n 1))) (apply #'append)))
(--each orig-fns (--each orig-fns
;; Restore original function mappings. ;; Restore original function mappings.
(-let (((&plist :name :fn) it)) (-let (((&plist :name :fn) it))