# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1149819349 0
# Node ID cd20cf7f26f93123d72924e36ed9245387bb8f57
# Parent  57b847825c309c003247b3502b8b1ab00defcda4
(set_lface_from_font_name): If a font doesn't have a
name, set LFACE_FONT (lface) to nil.

diff -r 57b847825c30 -r cd20cf7f26f9 src/xfaces.c
--- a/src/xfaces.c	Fri Jun 09 02:15:38 2006 +0000
+++ b/src/xfaces.c	Fri Jun 09 02:15:49 2006 +0000
@@ -3628,8 +3628,11 @@
 	  LFACE_SWIDTH (lface) = NILP (symbol) ? width : symbol;
 	}
 
-      ASET (lface, LFACE_FONT_INDEX, Ffont_xlfd_name (font->entity));
-      ASET (lface, LFACE_FONTSET_INDEX, fontset_name (fontset));
+      if (font->font.full_name)
+	LFACE_FONT (lface) = build_string (font->font.full_name);
+      else
+	LFACE_FONT (lface) = Qnil;
+      LFACE_FONTSET (lface) = fontset_name (fontset);
       return 1;
     }
 #endif	/* USE_FONT_BACKEND */