Update: (org-ql-view-save) Require map 2.0 and use map-elt

I upgrade to map.el 2.0 (from ELPA) locally, which deprecates this
TESTFN argument.
This commit is contained in:
Adam Porter 2020-02-02 03:28:58 -06:00
parent 6e3c0d3c68
commit b601a1e777

View file

@ -2,7 +2,7 @@
;; Author: Adam Porter <adam@alphapapa.net>
;; Url: https://github.com/alphapapa/org-ql
;; Package-Requires: ((transient))
;; Package-Requires: ((transient) (map "2.0"))
;;; Commentary:
@ -343,7 +343,7 @@ update search arguments."
:narrow org-ql-view-narrow
:super-groups org-ql-view-super-groups
:title name)))
(when (or (not (map-elt org-ql-views name nil #'equal))
(when (or (not (map-elt org-ql-views name nil))
(yes-or-no-p (format "Overwrite view \"%s\"?" name)))
(setf (map-elt org-ql-views name nil #'equal) plist)
(customize-set-variable 'org-ql-views org-ql-views)