# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 923710860 0
# Node ID a16dadaa425d7437460b7817710053295dfef9be
# Parent  1ceb1e45b10dda84c7db06abc5e368d22816d9cc
(Fquery_fontset): Check for fontset aliases here.
(Fnew_fontset, Fset_fontset_font): Don't check for them here.

diff -r 1ceb1e45b10d -r a16dadaa425d src/fontset.c
--- a/src/fontset.c	Fri Apr 09 19:23:31 1999 +0000
+++ b/src/fontset.c	Sat Apr 10 02:21:00 1999 +0000
@@ -464,6 +464,10 @@
   if (XSTRING (pattern)->size == 0)
     return Qnil;
 
+  tem = Frassoc (pattern, Vfontset_alias_alist);
+  if (!NILP (tem))
+    return Fcar (tem);
+
   if (NILP (regexpp))
     regexp = fontset_pattern_regexp (pattern);
   else
@@ -557,16 +561,15 @@
      Lisp_Object name, fontlist;
 {
   Lisp_Object fullname, fontset_info;
-  Lisp_Object tail, tem;
+  Lisp_Object tail;
 
   (*check_window_system_func) ();
 
   CHECK_STRING (name, 0);
   CHECK_LIST (fontlist, 1);
 
-  tem = Frassoc (name, Vfontset_alias_alist);
   fullname = Fquery_fontset (name, Qnil);
-  if (!NILP (tem) || !NILP (fullname))
+  if (!NILP (fullname))
     error ("Fontset `%s' matches the existing fontset `%s'",
 	   XSTRING (name)->data, XSTRING (fullname)->data);
 
@@ -608,7 +611,6 @@
 {
   int charset;
   Lisp_Object fullname, fontlist;
-  Lisp_Object tem;
 
   (*check_window_system_func) ();
 
@@ -621,9 +623,8 @@
   if ((charset = get_charset_id (charset_symbol)) < 0)
     error ("Invalid charset: %s", XSYMBOL (charset_symbol)->name->data);
 
-  tem = Frassoc (name, Vfontset_alias_alist);
   fullname = Fquery_fontset (name, Qnil);
-  if (!NILP (tem) || !NILP (fullname))
+  if (!NILP (fullname))
     error ("Fontset `%s' does not exist", XSTRING (name)->data);
 
   /* If FRAME is not specified, we must, at first, update contents of