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

Fix: (org-ql-defpred) Use alist-get

Browse source 
Until map-2.1 can automatically be installed with makem.sh...
This commit is contained in:
Adam Porter 2020-11-23 02:03:58 -06:00
parent 485bbdfda8
commit a24de862ec
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
org-ql.el
View file

@ -990,7 +990,8 @@ It would be expanded to:
`(progn `(progn
(cl-eval-when (compile load eval) (cl-eval-when (compile load eval)
(cl-defun ,fn-name ,args ,docstring ,body)) (cl-defun ,fn-name ,args ,docstring ,body))
(setf (map-elt org-ql-predicates ',predicate-name) ;; SOMEDAY: Use `map-elt' here, after map 2.1 can be automatically installed in CI sandbox...
(setf (alist-get ',predicate-name org-ql-predicates)
`(:name ,',name :aliases ,',aliases :fn ,',fn-name :docstring ,,docstring :args ,',args `(:name ,',name :aliases ,',aliases :fn ,',fn-name :docstring ,,docstring :args ,',args
:normalizers ,',normalizers :preambles ,',preambles)) :normalizers ,',normalizers :preambles ,',preambles))
(unless org-ql-defpred-defer (unless org-ql-defpred-defer