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) (defun font-candidate (&rest fonts)
"Return existing font which first match." "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 (setq my-font-choice
(font-candidate (font-candidate
@ -183,8 +183,6 @@
"Inconsolata-11" "Inconsolata-11"
"Monaco-14")) "Monaco-14"))
;; This is just here for playing with things. ;; This is just here for playing with things.
(set-frame-font my-font-choice) (set-frame-font my-font-choice)