# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738201788 0
# Node ID 885e08ef0577b914bef60488e04164f9828f0c73
# Parent  890e8e99a932d1dd6c6e25e2f8a1ab37666acfd8
(Fset_face_attribute_internal): Don't call unload_font
for the frame's own font.

diff -r 890e8e99a932 -r 885e08ef0577 src/xfaces.c
--- a/src/xfaces.c	Mon May 24 00:00:19 1993 +0000
+++ b/src/xfaces.c	Mon May 24 00:03:08 1993 +0000
@@ -863,7 +863,8 @@
   if (EQ (attr_name, intern ("font")))
     {
       XFontStruct *font = load_font (f, attr_value);
-      unload_font (f, face->font);
+      if (face->font != f->display.x->font)
+	unload_font (f, face->font);
       face->font = font;
     }
   else if (EQ (attr_name, intern ("foreground")))