# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1212472648 0
# Node ID 1699a530f6a3c16e1ee0691b03f664243eb80a0d
# Parent  48afc4995a5c42029ac634564e77503b67cb1abc
(xfont_list): Try an alias.

diff -r 48afc4995a5c -r 1699a530f6a3 src/xfont.c
--- a/src/xfont.c	Tue Jun 03 05:02:03 2008 +0000
+++ b/src/xfont.c	Tue Jun 03 05:57:28 2008 +0000
@@ -345,6 +345,7 @@
     }
   if (NILP (list) && ! NILP (registry))
     {
+      /* Try alternate registries.  */
       Lisp_Object alter;
 
       if ((alter = Fassoc (SYMBOL_NAME (registry),
@@ -365,6 +366,13 @@
 	      }
 	}
     }
+  if (NILP (list))
+    {
+      /* Try alias.  */
+      val = assq_no_quit (QCname, AREF (spec, FONT_EXTRA_INDEX));
+      if (CONSP (val) && STRINGP (XCDR (val)))
+	list = xfont_list_pattern (frame, display, SDATA (XCDR (val)));
+    }
 
   return list;
 }