From 9d15f503ba981ebdb939b33a80bc314309cf22a9 Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Wed, 8 Jan 2020 12:58:52 -0600
Subject: [PATCH] Tidy: Use alternatives to map-put

Emacs 27 marks map-put as obsolete and renames it to map-put!, which
causes byte-compilation warnings (sigh...isn't that the definition of
useless churn?).  Of course, map-put! doesn't exist in Emacs 26, so we
can't just use that.  I'm beginning to think that it will never be
possible to make the linting clean.
---
 org-ql-view.el | 2 +-
 org-ql.el      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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.