(Fset_fontset_font): Check family element of a given vector.

1 files changed, 2 insertions, 3 deletions

diff --git a/src/fontset.c b/src/fontset.c
index 27412558aad..4a1e3be2b61 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -1441,11 +1441,10 @@ appended.  By default, FONT-SPEC overrides the previous settings.  */)
             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))
     {