From 2b828a8622e9fe54c292e3d156b2c6883123c141 Mon Sep 17 00:00:00 2001
From: David Hedbor <david@hedbor.org>
Date: Fri, 13 Feb 1998 16:04:37 -0800
Subject: [PATCH] OpenFont never entered any fonts in the cache.

Rev: lib/modules/Protocols.pmod/X.pmod/Xlib.pmod:1.27
---
 lib/modules/Protocols.pmod/X.pmod/Xlib.pmod | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/modules/Protocols.pmod/X.pmod/Xlib.pmod b/lib/modules/Protocols.pmod/X.pmod/Xlib.pmod
index edcc293c0f..bed9647994 100644
--- a/lib/modules/Protocols.pmod/X.pmod/Xlib.pmod
+++ b/lib/modules/Protocols.pmod/X.pmod/Xlib.pmod
@@ -910,7 +910,8 @@ class Display
     if(fonts[name]) return fonts[name];
     object req = OpenFont_req(name);
     send_request(req);
-    return Types.Font(this_object(), req->fid);
+    fonts[name] = Types.Font(this_object(), req->fid);
+    return fonts[name];
   }
 
   object CreateGlyphCursor_req(object sourcefont, object maskfont,
-- 
GitLab