# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 960427156 0
# Node ID f901ec87b147dcef59b10523afc818d13b6d06f4
# Parent  c527f79f1399ed10cd0276e705bf3c7a175c5185
(Fset_fontset_font): The arg CHARACTER may be a charset.

diff -r c527f79f1399 -r f901ec87b147 src/fontset.c
--- a/src/fontset.c	Thu Jun 08 00:21:15 2000 +0000
+++ b/src/fontset.c	Thu Jun 08 01:19:16 2000 +0000
@@ -972,6 +972,8 @@
 CHARACTER may be a cons; (FROM . TO), where FROM and TO are\n\
 non-generic characters.  In that case, use FONTNAME\n\
 for all characters in the range FROM and TO (inclusive).\n\
+CHARACTER may be a charset.   In that case, use FONTNAME\n\
+for all character in the charsets.\n\
 \n\
 FONTNAME may be a cons; (FAMILY . REGISTRY), where FAMILY is a family\n\
 name of a font, REGSITRY is a registry name of a font.")
@@ -1000,6 +1002,14 @@
 	  && (SINGLE_BYTE_CHAR_P (from) || SINGLE_BYTE_CHAR_P (to)))
 	error ("Can't change font for a single byte character");
     }
+  else if (SYMBOLP (character))
+    {
+      elt = Fget (character, Qcharset);
+      if (!VECTORP (elt) || ASIZE (elt) < 1 || !NATNUMP (AREF (elt, 0)))
+	error ("Invalid charset: %s", (XSYMBOL (character)->name)->data);
+      from = MAKE_CHAR (XINT (AREF (elt, 0)), 0, 0);
+      to = from;
+    }
   else
     {
       CHECK_NUMBER (character, 1);