From 664a3e038cac674c5ee2ddde9304620f248bced4 Mon Sep 17 00:00:00 2001
From: csr21 <unknown>
Date: Thu, 15 May 2003 09:43:46 -0400
Subject: [PATCH] Don't lazily not call QUERY-FONT in OPEN-FONT any more,
 following

Don't lazily not call QUERY-FONT in OPEN-FONT any more, following
discussion on portable-clx-devel

darcs-hash:20030515134346-ed5a3-2012d91caee39943691e0115179c3751d8f98019.gz
---
 fonts.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/fonts.lisp b/fonts.lisp
index 4d557b4..a5bd4da 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)
-- 
GitLab