(font_list): Handle the case that REGISTRY doesn't contain information

about ENCODING.

diff --git a/src/xfaces.c b/src/xfaces.c
index 6379b13855ccb3b81627a7bac68d00698f425842..44f47b88e38ce0eefcaa0bc36af92c505873cff5 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -2470,12 +2470,19 @@ font_list (f, pattern, family, registry, fonts)
       registry_str = (NILP (registry) ? "*" : (char *) XSTRING (registry)->data);
       
       pattern_str = (char *) alloca (strlen (family_str)
-                                + strlen (registry_str)
-                                + 10);
-      if (index (family_str, '-'))
-       sprintf (pattern_str, "-%s-*-%s", family_str, registry_str);
-      else
-       sprintf (pattern_str, "-*-%s-*-%s", family_str, registry_str);
+                                    + strlen (registry_str)
+                                    + 10);
+      strcpy (pattern_str, index (family_str, '-') ? "-" : "-*-");
+      strcat (pattern_str, family_str);
+      strcat (pattern_str, "-*-");
+      strcat (pattern_str, registry_str);
+      if (!index (registry_str, '-'))
+       {
+         if (registry_str[strlen (registry_str) - 1] == '*')
+           strcat (pattern_str, "-*");
+         else
+           strcat (pattern_str, "*-*");
+       }
     }
   else
     pattern_str = (char *) XSTRING (pattern)->data;