diff --git a/org-ql-view.el b/org-ql-view.el index 08babe7..72f44e8 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -312,7 +312,7 @@ update search arguments." :narrow org-ql-view-narrow :super-groups org-ql-view-super-groups :title name))) - (map-put org-ql-views name plist #'equal) + (setf (map-elt org-ql-views name nil #'equal) plist) (customize-set-variable 'org-ql-views org-ql-views) (customize-mark-to-save 'org-ql-views))) diff --git a/org-ql.el b/org-ql.el index 77de804..27ede79 100644 --- a/org-ql.el +++ b/org-ql.el @@ -477,7 +477,7 @@ Values compared with `equal'." (puthash (current-buffer) (cons (buffer-modified-tick) position-cache) org-ql-node-value-cache)) - (map-put value-cache fn new-value) + (setf (alist-get fn value-cache nil nil #'equal) new-value) (puthash position value-cache position-cache) new-value)) ;; Return nil or the non-nil value.