Fix #4777: wrong-type-argument listp unpin error

This commit is contained in:
Henrik Lissner 2021-03-11 10:56:29 -05:00
parent cdcdde3354
commit abec86310b

View file

@ -192,14 +192,14 @@ ready to be pasted in a bug report on github."
"package!")) "package!"))
(error (format "<%S>" e))) (error (format "<%S>" e)))
'("n/a"))) '("n/a")))
,@(when-let (unpins (condition-case e ,(when-let (unpins (condition-case e
(mapcan #'identity (mapcan #'identity
(mapcar (mapcar
#'cdr (doom--collect-forms-in #'cdr (doom--collect-forms-in
(doom-path doom-private-dir "packages.el") (doom-path doom-private-dir "packages.el")
"unpin!"))) "unpin!")))
(error (format "<%S>" e)))) (error (format "<%S>" e))))
(cons 'unpin unpins)) (cons 'unpin unpins))
(elpa (elpa
,@(or (condition-case e ,@(or (condition-case e
(progn (progn