Fix #2807: wrong-number-of-args on install-patched-font

This commit is contained in:
Henrik Lissner 2020-04-01 12:03:56 -04:00
parent 5775714506
commit 4ca30d50e2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -95,6 +95,6 @@ When PREFIX is non-nil, ignore the prompt and just install it."
"Install font: " "Install font: "
(mapcar #'car +pretty-code-font-alist)))) (mapcar #'car +pretty-code-font-alist))))
(if-let (font-files (cdr (assoc font-name +pretty-code-font-alist))) (if-let (font-files (cdr (assoc font-name +pretty-code-font-alist)))
(cl-destructuring-bind (&keys url files) font-files (cl-destructuring-bind (&key url files) font-files
(+pretty-code--install-font prefix font-name url font-files)) (+pretty-code--install-font prefix font-name url font-files))
(user-error "%S is not a valid font"))) (user-error "%S is not a valid font")))