(set_default_ascii_font): Delete this unused function.

diff --git a/src/ChangeLog b/src/ChangeLog
index 5a8df8f5408cb3c3cba07ff8b1925ba41b3652f7..d47f354ba6a1e00b087b69b30b6c9156b8da3bdf 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,13 @@
+2009-04-29  Kenichi Handa  <handa@m17n.org>
+
+       * fontset.h (set_default_ascii_font): Delete extern.
+
+       * fontset.c (set_default_ascii_font): Delete this unused function.
+
+       * frame.c (x_set_font): When ARG is a font-object, check if the
+       font-object matches with the ASCII font-spec of the frame's
+       fontset.  If not, create a new fontset for the frame.
+
 2009-04-28  Andreas Schwab  <schwab@linux-m68k.org>
 
        * fns.c (Flocale_info): Protect vector from GC during decoding.

diff --git a/src/fontset.c b/src/fontset.c
index 6e2e34dac77407978f9d803af0170b52de3cfed6..3eb835401f242d89638caae2ee7cfd39d465d210 100644 (file)
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -765,23 +765,6 @@ make_fontset (frame, name, base)
   return fontset;
 }
 
-
-/* Set the ASCII font of the default fontset to FONTNAME if that is
-   not yet set.  */
-void
-set_default_ascii_font (fontname)
-     Lisp_Object fontname;
-{
-  if (! STRINGP (FONTSET_ASCII (Vdefault_fontset)))
-    {
-      int id = fs_query_fontset (fontname, 2);
-
-      if (id >= 0)
-       fontname = FONTSET_ASCII (FONTSET_FROM_ID (id));
-      FONTSET_ASCII (Vdefault_fontset)= fontname;
-    }
-}
-
 \f
 /********** INTERFACES TO xfaces.c, xfns.c, and dispextern.h **********/