This commit is contained in:
John Doty 2021-08-20 07:25:36 -07:00
parent 1f9e75ca62
commit 431fb18d89

View file

@ -173,7 +173,7 @@
;;
(defun font-candidate (&rest fonts)
"Return existing font which first match."
(find-if (lambda (f) (find-font (font-spec :name f))) fonts))
(cl-find-if (lambda (f) (find-font (font-spec :name f))) fonts))
(setq my-font-choice
(font-candidate
@ -183,8 +183,6 @@
"Inconsolata-11"
"Monaco-14"))
;; This is just here for playing with things.
(set-frame-font my-font-choice)