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

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