From b601a1e7779253f2d9cf9ce3f7640f57259a4767 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sun, 2 Feb 2020 03:28:58 -0600 Subject: [PATCH] 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. --- org-ql-view.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/org-ql-view.el b/org-ql-view.el index 312686c..6cd4bce 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -2,7 +2,7 @@ ;; Author: Adam Porter ;; 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)