fix: package!: unpinning with :pin nil

This commit is contained in:
Henrik Lissner 2024-08-25 16:34:19 -04:00
parent b9e460bc64
commit fac979c6d8
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -568,7 +568,7 @@ elsewhere."
nil))))
;; Merge given plist with pre-existing one
(cl-loop for (key value) on (list ,@plist) by 'cddr
when value
when (or (eq key :pin) value)
do (cl-callf plist-put plist key value))
;; Some basic key validation; throws an error on invalid properties
(condition-case e