# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1232767062 0
# Node ID 9e1fcd81389cc5025e7672fac271f5f35caa8ca0
# Parent  112b0c79b63dffc60cec2ca52c4d3bddc0398271
(font_parse_xlfd): Handle patterns of length < 2.

diff -r 112b0c79b63d -r 9e1fcd81389c src/font.c
--- a/src/font.c	Sat Jan 24 03:17:32 2009 +0000
+++ b/src/font.c	Sat Jan 24 03:17:42 2009 +0000
@@ -1066,11 +1066,11 @@
   Lisp_Object val;
   char *p;
 
-  if (len > 255)
+  if (len > 255 || !len)
     /* Maximum XLFD name length is 255. */
     return -1;
   /* Accept "*-.." as a fully specified XLFD. */
-  if (name[0] == '*' && name[1] == '-')
+  if (name[0] == '*' && (len == 1 || name[1] == '-'))
     i = 1, f[XLFD_FOUNDRY_INDEX] = name;
   else
     i = 0;