# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1066898559 0
# Node ID 7f9f2d025eeed4cb3e2265e64f6ee13dba2d4857
# Parent  611b87bc04a41eb3c1d2132fee2571bdbaa1386e
(Fnew_fontset): Check NAME more rigidly.

diff -r 611b87bc04a4 -r 7f9f2d025eee src/fontset.c
--- a/src/fontset.c	Fri Oct 17 07:11:54 2003 +0000
+++ b/src/fontset.c	Thu Oct 23 08:42:39 2003 +0000
@@ -1378,7 +1378,7 @@
     {
       name = Fdowncase (name);
       val = split_font_name_into_vector (name);
-      if (NILP (val))
+      if (NILP (val) || NILP (AREF (val, 12)) || NILP (AREF (val, 13)))
 	error ("Fontset name must be in XLFD format");
       if (strcmp (SDATA (AREF (val, 12)), "fontset"))
 	error ("Registry field of fontset name must be \"fontset\"");