# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1200274285 0
# Node ID 04716f23ac87a25f6d221cd8e5c50d2c2fb3ca71
# Parent  07ce8496076f74d0539c4f57c0fa492a62d2489e
(FONTSET_REF_AND_RANGE): Delete it.
(fontset_ref_and_range): Delete it.
(fontset_find_font): Call char_table_ref_and_range instead of
FONTSET_REF_AND_RANGE.
(make_fontset): Don't setup font groups of Latin here.
(Fset_fontset_font): Don't overwrite the setting of FONTSET_ASCII.
(new_fontset_from_font): Make the specified font the default for
all Latin characters.

diff -r 07ce8496076f -r 04716f23ac87 src/fontset.c
--- a/src/fontset.c	Fri Jan 11 04:16:14 2008 +0000
+++ b/src/fontset.c	Mon Jan 14 01:31:25 2008 +0000
@@ -338,43 +338,6 @@
   return elt;
 }
 
-
-/* Return the element of FONTSET for the character C, set FROM and TO
-   to the range of characters around C that have the same value as C.
-   If FONTSET is a base fontset other then the default fontset and
-   FONTSET doesn't contain information for C, return the information
-   in the default fontset.  */
-
-#define FONTSET_REF_AND_RANGE(fontset, c, form, to)	\
-  (EQ (fontset, Vdefault_fontset)			\
-   ? char_table_ref_and_range (fontset, c, &from, &to)	\
-   : fontset_ref_and_range (fontset, c, &from, &to))
-
-static Lisp_Object
-fontset_ref_and_range (fontset, c, from, to)
-     Lisp_Object fontset;
-     int c;
-     int *from, *to;
-{
-  Lisp_Object elt;
-
-  elt = char_table_ref_and_range (fontset, c, from, to);
-  if (NILP (elt) && ! EQ (fontset, Vdefault_fontset)
-      /* Don't check Vdefault_fontset for a realized fontset.  */
-      && NILP (FONTSET_BASE (fontset)))
-    {
-      int from1, to1;
-
-      elt = char_table_ref_and_range (Vdefault_fontset, c, &from1, &to1);
-      if (*from < from1)
-	*from = from1;
-      if (*to > to1)
-	*to = to1;
-    }
-  return elt;
-}
-
-
 /* Set elements of FONTSET for characters in RANGE to the value ELT.
    RANGE is a cons (FROM . TO), where FROM and TO are character codes
    specifying a range.  */
@@ -609,7 +572,7 @@
 	return Qnil;
       if (! fallback)
 	{
-	  elt = FONTSET_REF_AND_RANGE (base_fontset, c, from, to);
+	  elt = char_table_ref_and_range (base_fontset, c, &from, &to);
 	  range = Fcons (make_number (from), make_number (to));
 	  if (EQ (base_fontset, Vdefault_fontset))
 	    {
@@ -1098,7 +1061,6 @@
       base_fontset = FONTSET_FROM_ID (base_fontset_id);
       if (!BASE_FONTSET_P (base_fontset))
 	base_fontset = FONTSET_BASE (base_fontset);
-      xassert (BASE_FONTSET_P (base_fontset));
       if (! BASE_FONTSET_P (base_fontset))
 	abort ();
     }
@@ -1106,39 +1068,6 @@
     base_fontset = Vdefault_fontset;
 
   fontset = make_fontset (frame, Qnil, base_fontset);
-  {
-    Lisp_Object elt, rfont_def, val;
-
-    elt = FONTSET_REF (base_fontset, 0);
-    xassert (VECTORP (elt) && ASIZE (elt) > 0);
-    rfont_def = Fmake_vector (make_number (4), Qnil);
-#ifdef USE_FONT_BACKEND
-    if (enable_font_backend && face->font_info)
-      {
-	struct font *font = (struct font *) face->font_info;
-
-	ASET (rfont_def, 3, Fcons (font->entity, Qnil));
-      }
-    else
-#endif  /* USE_FONT_BACKEND */
-    {
-      ASET (rfont_def, 3, build_string (face->font_name));
-    }
-    ASET (rfont_def, 1, make_number (face->font_info_id));
-    ASET (rfont_def, 2, AREF (elt, 0));
-    elt = Fmake_vector (make_number (4), Qnil);
-    ASET (elt, 0, make_number (charset_ordered_list_tick));
-    ASET (elt, 1, make_number (charset_ascii));
-    ASET (elt, 2, rfont_def);
-    ASET (elt, 3, rfont_def);
-
-    val = Fcons (Qlatin, Qnil);
-    map_char_table (accumulate_script_ranges, Qnil, Vchar_script_table, val);
-    for (val = XCDR (val); CONSP (val); val = XCDR (val))
-      char_table_set_range (fontset, XINT (XCAR (XCAR (val))),
-			    XINT (XCDR (XCAR (val))), elt);
-    FONTSET_FALLBACK (fontset) = elt;
-  }
   return XINT (FONTSET_ID (fontset));
 }
 
@@ -1715,7 +1644,7 @@
 	  map_char_table (accumulate_script_ranges, Qnil, Vchar_script_table,
 			  val);
 	  range_list = XCDR (val);
-	  if (EQ (target, Qlatin))
+	  if (EQ (target, Qlatin) && NILP (FONTSET_ASCII (fontset)))
 	    {
 	      if (VECTORP (font_spec))
 		val = generate_ascii_font_name (FONTSET_NAME (fontset),
@@ -1727,7 +1656,7 @@
 	}
       if (CHARSETP (target))
 	{
-	  if (EQ (target, Qascii))
+	  if (EQ (target, Qascii) && NILP (FONTSET_ASCII (fontset)))
 	    {
 	      if (VECTORP (font_spec))
 		font_spec = generate_ascii_font_name (FONTSET_NAME (fontset),
@@ -1925,6 +1854,8 @@
   font_spec = Fcons (SYMBOL_NAME (AREF (font_spec, FONT_FAMILY_INDEX)),
 		     SYMBOL_NAME (AREF (font_spec, FONT_REGISTRY_INDEX)));
   Fset_fontset_font (name, Qlatin, font_spec, Qnil, Qnil);
+  XSETCDR (font_spec, build_string ("iso10646-1"));
+  Fset_fontset_font (name, Qlatin, font_spec, Qnil, Qappend);
   Fset_fontset_font (name, Qnil, font_spec, Qnil, Qnil);
   return XINT (FONTSET_ID (fontset));
 }