Fix #2807: wrong-number-of-args error on +ligatures/install-patched-font

This commit is contained in:
Henrik Lissner 2020-08-23 14:00:06 -04:00
parent c497cdabc7
commit b5227b3036
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -52,7 +52,7 @@ If PREFIX is non-nil, don't ask for confirmation and install it."
:key #'cadr :key #'cadr
:test #'equal)) :test #'equal))
current-prefix-arg)) current-prefix-arg))
(cl-destructuring-bind (font-name &keys _range url files) (cl-destructuring-bind (font-name &key _range url files)
(or (alist-get font-id +ligatures--font-alist) (or (alist-get font-id +ligatures--font-alist)
(user-error "%S is not a valid font" font-id)) (user-error "%S is not a valid font" font-id))
(+ligatures--install-font prefix font-name url files))) (+ligatures--install-font prefix font-name url files)))