(Ffont_put): Don't use font_parse_family_registry for

family name.

diff --git a/src/font.c b/src/font.c
index 2f65f3d0832a78c1460638b93067f668cc9b1887..3c28f8e10e9b25a23a85f62db27d87badb1c63e9 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -3534,13 +3534,7 @@ DEFUN ("font-put", Ffont_put, Sfont_put, 3, 3, 0,
   CHECK_FONT_SPEC (font_spec);
   idx = get_font_prop_index (prop);
   if (idx >= 0 && idx < FONT_EXTRA_INDEX)
-    {
-      if (idx == FONT_FAMILY_INDEX
-         && STRINGP (val))
-       font_parse_family_registry (val, Qnil, font_spec);
-      else
-       ASET (font_spec, idx, font_prop_validate (idx, Qnil, val));
-    }
+    ASET (font_spec, idx, font_prop_validate (idx, Qnil, val));
   else
     font_put_extra (font_spec, prop, font_prop_validate (0, prop, val));
   return val;