X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/9df50a31e7da8a376c7938097bcd8707d10f8416..7b9226ba4422b50b5ad86cd29ad0c4bed11e0c18:/src/xfaces.c

diff --git a/src/xfaces.c b/src/xfaces.c
index 9adc9218f6..cf3e444ef6 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -3628,8 +3628,11 @@ set_lface_from_font_name (f, lface, fontname, force_p, may_fail_p)
 	  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 */