# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 923528112 0
# Node ID 6810d6fb639fdfd4e4df842ae18b2200b77f54a9
# Parent  244e710f313471b9a8c3e1579806e84e549fc272
(Fquery_fontset): Don't check for fontset aliases here.
(Fnew_fontset, Fset_fontset_font): Check for them here.
(Ffontset_info, Fnew_fontset, Fset_fontset_font):
Fix error message syntax.

diff -r 244e710f3134 -r 6810d6fb639f src/fontset.c
--- a/src/fontset.c	Wed Apr 07 06:11:36 1999 +0000
+++ b/src/fontset.c	Wed Apr 07 23:35:12 1999 +0000
@@ -447,11 +447,11 @@
 }
 
 DEFUN ("query-fontset", Fquery_fontset, Squery_fontset, 1, 2, 0,
-  "Return a fontset name which matches PATTERN, nil if no matching fontset.\n\
-PATTERN can contain `*' or `?' as a wild card\n\
-just like X's font name matching algorithm allows.\n\
-If REGEXPP is non-nil, pattern is regexp;\n\
-so PATTERN is considered as regular expression.")
+  "Return the name of an existing fontset which matches PATTERN.\n\
+The value is nil if there is no matching fontset.\n\
+PATTERN can contain `*' or `?' as a wildcard\n\
+just as X font name matching algorithm allows.\n\
+If REGEXPP is non-nil, PATTERN is a regular expression.")
   (pattern, regexpp)
      Lisp_Object pattern, regexpp;
 {
@@ -464,10 +464,6 @@
   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
@@ -561,16 +557,17 @@
      Lisp_Object name, fontlist;
 {
   Lisp_Object fullname, fontset_info;
-  Lisp_Object tail;
+  Lisp_Object tail, tem;
 
   (*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 (fullname))
-    error ("Fontset \"%s\" matches the existing fontset \"%s\"",
+  if (!NILP (tem) || !NILP (fullname))
+    error ("Fontset `%s' matches the existing fontset `%s'",
 	   XSTRING (name)->data, XSTRING (fullname)->data);
 
   /* Check the validity of FONTLIST.  */
@@ -611,6 +608,7 @@
 {
   int charset;
   Lisp_Object fullname, fontlist;
+  Lisp_Object tem;
 
   (*check_window_system_func) ();
 
@@ -623,9 +621,10 @@
   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 (fullname))
-    error ("Fontset \"%s\" does not exist", XSTRING (name)->data);
+  if (!NILP (tem) || !NILP (fullname))
+    error ("Fontset `%s' does not exist", XSTRING (name)->data);
 
   /* If FRAME is not specified, we must, at first, update contents of
      `global-fontset-alist' for a frame created in the future.  */
@@ -770,7 +769,7 @@
 
   fontset = fs_query_fontset (f, XSTRING (name)->data);
   if (fontset < 0)
-    error ("Fontset \"%s\" does not exist", XSTRING (name)->data);
+    error ("Fontset `%s' does not exist", XSTRING (name)->data);
 
   info = Fmake_vector (make_number (3), Qnil);