fix: package!: unpinning with :pin nil
This commit is contained in:
parent
b9e460bc64
commit
fac979c6d8
1 changed files with 1 additions and 1 deletions
|
@ -568,7 +568,7 @@ elsewhere."
|
||||||
nil))))
|
nil))))
|
||||||
;; Merge given plist with pre-existing one
|
;; Merge given plist with pre-existing one
|
||||||
(cl-loop for (key value) on (list ,@plist) by 'cddr
|
(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))
|
do (cl-callf plist-put plist key value))
|
||||||
;; Some basic key validation; throws an error on invalid properties
|
;; Some basic key validation; throws an error on invalid properties
|
||||||
(condition-case e
|
(condition-case e
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue