Fix #2807: fix void-variable errors in ui/ligatures

This commit is contained in:
Henrik Lissner 2020-08-23 18:13:00 -04:00
parent 00e9d8335c
commit 97471f11db
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -31,7 +31,7 @@ filename of each font. It is used as the source and destination filename."
(when known-dest-p (when known-dest-p
(message "Font downloaded, updating font cache... <fc-cache -f -v> ") (message "Font downloaded, updating font cache... <fc-cache -f -v> ")
(shell-command-to-string "fc-cache -f -v")) (shell-command-to-string "fc-cache -f -v"))
(if IS-WINDOW (if IS-WINDOWS
(when (y-or-n-p "The %S font was downloaded, but Windows users must install them manually.\n\nShow files in windows explorer?") (when (y-or-n-p "The %S font was downloaded, but Windows users must install them manually.\n\nShow files in windows explorer?")
(call-process "explorer.exe" nil nil nil font-dest)) (call-process "explorer.exe" nil nil nil font-dest))
(message "Successfully %s %S fonts to %S!" (message "Successfully %s %S fonts to %S!"
@ -55,4 +55,4 @@ If PREFIX is non-nil, don't ask for confirmation and install it."
(cl-destructuring-bind (font-name &key _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 arg font-name url files)))