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.
This commit is contained in:
parent
3ce29bee46
commit
9d15f503ba
2 changed files with 2 additions and 2 deletions
|
|
@ -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)))
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue