jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql-view.el
View file

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