# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1162191116 0
# Node ID 92baf98563e4d31f21d6a35b8e9942a76d12dc5e
# Parent  54f7efcb326fbb062a81f12ab7eb7e1e8fc4e759
(Qlatin): New variable.
(syms_of_fontset): Define it as a lisp symbol.
(Fset_fontset_font): If TARGET is `latin', use FONT_SPEC for
ASCII.

diff -r 54f7efcb326f -r 92baf98563e4 src/fontset.c
--- a/src/fontset.c	Fri Oct 27 07:37:22 2006 +0000
+++ b/src/fontset.c	Mon Oct 30 06:51:56 2006 +0000
@@ -202,6 +202,7 @@
 static Lisp_Object Qfontset;
 static Lisp_Object Qfontset_info;
 static Lisp_Object Qprepend, Qappend;
+static Lisp_Object Qlatin;
 
 /* Vector containing all fontsets.  */
 static Lisp_Object Vfontset_table;
@@ -1669,6 +1670,15 @@
 	  map_char_table (accumulate_script_ranges, Qnil, Vchar_script_table,
 			  val);
 	  range_list = XCDR (val);
+	  if (EQ (target, Qlatin))
+	    {
+	      if (VECTORP (font_spec))
+		val = generate_ascii_font_name (FONTSET_NAME (fontset),
+						font_spec);
+	      else
+		val = font_spec;
+	      FONTSET_ASCII (fontset) = val;
+	    }
 	}
       if (CHARSETP (target))
 	{
@@ -2388,6 +2398,7 @@
 
   DEFSYM (Qprepend, "prepend");
   DEFSYM (Qappend, "append");
+  DEFSYM (Qlatin, "latin");
 
   Vcached_fontset_data = Qnil;
   staticpro (&Vcached_fontset_data);