Fix #4777: wrong-type-argument listp unpin error
This commit is contained in:
parent
cdcdde3354
commit
abec86310b
1 changed files with 8 additions and 8 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue