From: Kenichi Handa <handa@m17n.org>
Date: Tue, 3 Jun 2008 05:57:28 +0000 (+0000)
Subject: (xfont_list): Try an alias.
X-Git-Tag: emacs-pretest-23.0.90~5143
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37470f4dfe60ca47bc9765d11635094219abd35e;p=emacs.git

(xfont_list): Try an alias.
---

diff --git a/src/xfont.c b/src/xfont.c
index e6f0bde5114..8684af43122 100644
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -345,6 +345,7 @@ xfont_list (frame, spec)
     }
   if (NILP (list) && ! NILP (registry))
     {
+      /* Try alternate registries.  */
       Lisp_Object alter;
 
       if ((alter = Fassoc (SYMBOL_NAME (registry),
@@ -365,6 +366,13 @@ xfont_list (frame, spec)
 	      }
 	}
     }
+  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;
 }