From 6e3a5eebe718b3e5e5f035f5e21cbf5504c0cbd4 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Thu, 8 Dec 2022 21:22:40 -0600 Subject: [PATCH] Fix: (src) Coalesce function --- org-ql.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/org-ql.el b/org-ql.el index 3f5d973..a36250f 100644 --- a/org-ql.el +++ b/org-ql.el @@ -1818,9 +1818,11 @@ language." (when (or (not coalesced-args) (equal (plist-get current-args :lang) (plist-get coalesced-args :lang))) - (plist-put coalesced-args :regexps (append (plist-get coalesced-args :regexps) - (plist-get current-args :regexps))) - (plist-put coalesced-args :lang (plist-get current-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-get current-args :regexps)))))) :normalizers ((`(,predicate-names . ,args) ;; Rewrite to use keyword args. (cond ((cl-every #'stringp args)