OpenFont never entered any fonts in the cache.

Rev: lib/modules/Protocols.pmod/X.pmod/Xlib.pmod:1.27

OpenFont never entered any fonts in the cache.
2b828a86 · David Hedbor · 535e18e1 · 2b828a86
Commit 2b828a86 authored 27 years ago by David Hedbor
--- 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,