# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1107085324 0
# Node ID 5948e3220233b5866ea79f3c7f244d730948cdc8
# Parent  b965d05e584ee1265bbc4c618f46fef1feab5441
(Fset_fontset_font): Check family element of a given vector.

diff -r b965d05e584e -r 5948e3220233 src/fontset.c
--- a/src/fontset.c	Sun Jan 30 11:39:15 2005 +0000
+++ b/src/fontset.c	Sun Jan 30 11:42:04 2005 +0000
@@ -1441,11 +1441,10 @@
 	    CHECK_STRING (AREF (font_spec, j));
 	    ASET (font_spec, j, Fdowncase (AREF (font_spec, j)));
 	  }
+      family = AREF (font_spec, FONT_SPEC_FAMILY_INDEX);
       /* REGISTRY should not be omitted.  */
       CHECK_STRING (AREF (font_spec, FONT_SPEC_REGISTRY_INDEX));
-      registry = Fdowncase (AREF (font_spec, FONT_SPEC_REGISTRY_INDEX));
-      ASET (font_spec, FONT_SPEC_REGISTRY_INDEX, registry);
-
+      registry = AREF (font_spec, FONT_SPEC_REGISTRY_INDEX);
     }
   else if (CONSP (font_spec))
     {