* gnutls.c, gnutls.h (emacs_gnutls_record_check_pending):

[gnu-emacs] / src / xfont.c

diff --git a/src/xfont.c b/src/xfont.c
index d4d6ee7c10fe1dd10079a5615dd6432a9d7694f8..83ef604d5cd782a2fd609abd9228ba76cd3441a2 100644 (file)
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -806,6 +806,7 @@ xfont_open (struct frame *f, Lisp_Object entity, int pixel_size)
   ASET (font_object, FONT_FILE_INDEX, Qnil);
   ASET (font_object, FONT_FORMAT_INDEX, Qx);
   font = XFONT_OBJECT (font_object);
+  font->frame = f;
   ((struct xfont_info *) font)->xfont = xfont;
   ((struct xfont_info *) font)->display = FRAME_X_DISPLAY (f);
   font->pixel_size = pixel_size;