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

Fix: (src) Coalesce function

Browse source
This commit is contained in:
Adam Porter 2022-12-08 21:22:40 -06:00
parent 9dd1bbb10b
commit 6e3a5eebe7
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
org-ql.el
View file

@ -1818,9 +1818,11 @@ language."
(when (or (not coalesced-args) (when (or (not coalesced-args)
(equal (plist-get current-args :lang) (equal (plist-get current-args :lang)
(plist-get coalesced-args :lang))) (plist-get coalesced-args :lang)))
(setf coalesced-args
(plist-put coalesced-args :lang (plist-get current-args :lang)))
(setf coalesced-args
(plist-put coalesced-args :regexps (append (plist-get coalesced-args :regexps) (plist-put coalesced-args :regexps (append (plist-get coalesced-args :regexps)
(plist-get current-args :regexps))) (plist-get current-args :regexps))))))
(plist-put coalesced-args :lang (plist-get current-args :lang))))
:normalizers ((`(,predicate-names . ,args) :normalizers ((`(,predicate-names . ,args)
;; Rewrite to use keyword args. ;; Rewrite to use keyword args.
(cond ((cl-every #'stringp args) (cond ((cl-every #'stringp args)