diff --git a/fonts.lisp b/fonts.lisp index 4d557b4b1b616475851bfbc85f7c6390c273c636..a5bd4daaf6b3a7027f27e285001f62cd3fe8f43c 100644 --- a/fonts.lisp +++ b/fonts.lisp @@ -163,6 +163,8 @@ (string name-string)) (push font (display-font-cache display))) (incf (font-reference-count font)) + (unless (font-font-info-internal font) + (query-font font)) font)) (defun open-font-internal (font)