# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 774662042 0
# Node ID 9c6ddd14996b902047f28b9b6ebc97ceb7e5a419
# Parent  f95e050e272f116e69ed060cef82d0e5d05bf746
(struct font_info): New field full_name.
(x_new_font): Record, and return, the full name of the font.

diff -r f95e050e272f -r 9c6ddd14996b src/xterm.c
--- a/src/xterm.c	Tue Jul 19 22:30:06 1994 +0000
+++ b/src/xterm.c	Tue Jul 19 23:54:02 1994 +0000
@@ -5076,6 +5076,7 @@
 {
   XFontStruct *font;
   char *name;
+  char *full_name;
 };
 
 /* A table of all the fonts we have already loaded.  */
@@ -5089,6 +5090,11 @@
    0 <= n_fonts <= x_font_table_size.  */
 static int n_fonts;
 
+/* Give frame F the font named FONTNAME as its default font, and
+   return the full name of that font.  FONTNAME may be a wildcard
+   pattern; in that case, we choose some font that fits the pattern.
+   The return value shows which font we chose.  */
+
 Lisp_Object
 x_new_font (f, fontname)
      struct frame *f;
@@ -5121,10 +5127,11 @@
 
       for (i = 0; i < n_fonts; i++)
 	for (j = 0; j < n_matching_fonts; j++)
-	  if (!strcmp (x_font_table[i].name, font_names[j]))
+	  if (!strcmp (x_font_table[i].name, font_names[j])
+	      || !strcmp (x_font_table[i].full_name, font_names[j]))
 	    {
 	      already_loaded = i;
-	      fontname = font_names[j];
+	      fontname = x_font_table[i].full_name;
 	      goto found_font;
 	    }
     }
@@ -5138,6 +5145,7 @@
   else
     {
       int i;
+      char *full_name;
       XFontStruct *font;
 
       /* Try to find a character-cell font in the list.  */
@@ -5181,9 +5189,27 @@
 					      * sizeof (x_font_table[0])));
 	}
 
+      /* Try to get the full name of FONT.  Put it in full_name.  */
+      full_name = 0;
+      for (i = 0; i < font->n_properties; i++)
+	{
+	  char *atom
+	    = XGetAtomName (x_current_display, font->properties[i].name);
+	  if (!strcmp (atom, "FONT"))
+	    full_name = XGetAtomName (x_current_display,
+				      (Atom) (font->properties[i].card32));
+	  XFree (atom);
+	}
+
       x_font_table[n_fonts].name = (char *) xmalloc (strlen (fontname) + 1);
       bcopy (fontname, x_font_table[n_fonts].name, strlen (fontname) + 1);
+      if (full_name != 0)
+	x_font_table[n_fonts].full_name = full_name;
+      else
+	x_font_table[n_fonts].full_name = x_font_table[n_fonts].name;
       f->display.x->font = x_font_table[n_fonts++].font = font;
+
+      fontname = full_name;
     }
 
   /* Now make the frame display the given font.  */