(xfont_list_pattern): Don't initialize xfont_scripts_cache

and xfont_scratch_props.
(syms_of_xfont): Do it here instead.
(xfont_find_ccl_program): Delete, unused.
(xfont_open): Delete unused var `i'.

diff --git a/src/ChangeLog b/src/ChangeLog
index d4b1c2daadda23ff9bcb628a3d3c47089d012e4d..23f08d6409e12c11c15c11bd2ccd9d5530b21027 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,13 +1,21 @@
+2009-05-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * xfont.c (xfont_list_pattern): Don't initialize xfont_scripts_cache
+       and xfont_scratch_props.
+       (syms_of_xfont): Do it here instead.
+       (xfont_find_ccl_program): Delete, unused.
+       (xfont_open): Delete unused var `i'.
+
 2009-05-21  Kenichi Handa  <handa@m17n.org>
 
        * fontset.c (Qlatin): Don't make it static.
 
-       * xfont.c (xfont_chars_supported, xfont_supported_scripts): New
-       functions.
+       * xfont.c (xfont_chars_supported, xfont_supported_scripts):
+       New functions.
        (xfont_scripts_cache, xfont_scratch_props): New variables.
        (Qlatin, Vscalable_fonts_allowed): Extern it.
-       (xfont_list_pattern): Argument changed.  Callers changed.  Check
-       Vscalable_fonts_allowed.  Check the support of a script.
+       (xfont_list_pattern): Argument changed.  Callers changed.
+       Check Vscalable_fonts_allowed.  Check the support of a script.
        (xfont_list): Don't reject a font spec with :script property.
        (xfont_has_char): Fix setting of encoding.
        (syms_of_xfont): Staticpro and initialize xfont_scripts_cache and
@@ -15,7 +23,7 @@
 
 2009-05-19  Kenichi Handa  <handa@m17n.org>
 
-       * font.c (font_sort_entities): Renamed from font_sort_entites.
+       * font.c (font_sort_entities): Rename from font_sort_entites.
        Callers changed.
 
 2009-05-18  Kenichi Handa  <handa@m17n.org>

diff --git a/src/xfont.c b/src/xfont.c
index 87455bb504ae295c3aca4a01fb205a630948ed28..35113fdf798dc6f1162579fc44334ea818aa3745 100644 (file)
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -49,7 +49,6 @@ struct xfont_info
 extern void x_clear_errors P_ ((Display *));
 
 static XCharStruct *xfont_get_pcm P_ ((XFontStruct *, XChar2b *));
-static void xfont_find_ccl_program P_ ((struct font *));
 
 /* Get metrics of character CHAR2B in XFONT.  Value is null if CHAR2B
    is not contained in the font.  */
@@ -119,42 +118,6 @@ xfont_get_pcm (xfont, char2b)
          ? NULL : pcm);
 }
 
-/* Find a CCL program for a font specified by FONTP, and set the member
- `encoder' of the structure.  */
-
-static void
-xfont_find_ccl_program (font)
-     struct font *font;
-{
-  Lisp_Object list, elt;
-
-  elt = Qnil;
-  for (list = Vfont_ccl_encoder_alist; CONSP (list); list = XCDR (list))
-    {
-      elt = XCAR (list);
-      if (CONSP (elt)
-         && STRINGP (XCAR (elt))
-         && ((fast_string_match_ignore_case (XCAR (elt),
-                                             font->props[FONT_NAME_INDEX])
-              >= 0)
-             || (fast_string_match_ignore_case (XCAR (elt),
-                                                font->props[FONT_FULLNAME_INDEX])
-                 >= 0)))
-       break;
-    }
-
-  if (! NILP (list))
-    {
-      struct ccl_program *ccl
-       = (struct ccl_program *) xmalloc (sizeof (struct ccl_program));
-
-      if (setup_ccl_program (ccl, XCDR (elt)) < 0)
-       xfree (ccl);
-      else
-       font->font_encoder = ccl;
-    }
-}
-
 static Lisp_Object xfont_get_cache P_ ((FRAME_PTR));
 static Lisp_Object xfont_list P_ ((Lisp_Object, Lisp_Object));
 static Lisp_Object xfont_match P_ ((Lisp_Object, Lisp_Object));
@@ -408,14 +371,6 @@ xfont_list_pattern (Display *display, char *pattern,
          script = Qnil;
        }
     }
-  if (! repertory && NILP (xfont_scripts_cache))
-    {
-      Lisp_Object args[2];
-
-      args[0] = QCtest;
-      args[1] = Qequal;
-      xfont_scripts_cache = Fmake_hash_table (2, args);
-    }
       
   BLOCK_INPUT;
   x_catch_errors (display);
@@ -439,20 +394,11 @@ xfont_list_pattern (Display *display, char *pattern,
   if (num_fonts > 0)
     {
       char **indices = alloca (sizeof (char *) * num_fonts);
-      Lisp_Object *props;
+      Lisp_Object *props = XVECTOR (xfont_scratch_props)->contents;
       Lisp_Object scripts = Qnil;
 
-      if (NILP (xfont_scratch_props))
-       {
-         xfont_scratch_props = Fmake_vector (make_number (8), Qnil);
-         props = XVECTOR (xfont_scratch_props)->contents;
-       }
-      else
-       {
-         props = XVECTOR (xfont_scratch_props)->contents;
-         for (i = 0; i < 8; i++)
-           props[i] = Qnil;
-       }
+      for (i = 0; i < ASIZE (xfont_scratch_props); i++)
+       props[i] = Qnil;
       for (i = 0; i < num_fonts; i++)
        indices[i] = names[i];
       qsort (indices, num_fonts, sizeof (char *), compare_font_names);
@@ -749,7 +695,6 @@ xfont_open (f, entity, pixel_size)
   Lisp_Object font_object, fullname;
   struct font *font;
   XFontStruct *xfont;
-  int i;
 
   /* At first, check if we know how to encode characters for this
      font.  */
@@ -1176,9 +1121,15 @@ void
 syms_of_xfont ()
 {
   staticpro (&xfont_scripts_cache);
-  xfont_scripts_cache = Qnil;
+  { /* Here we rely on the fact that syms_of_xfont (via syms_of_font)
+       is called fairly late, when QCtest and Qequal are known to be set.  */
+    Lisp_Object args[2];
+    args[0] = QCtest;
+    args[1] = Qequal;
+    xfont_scripts_cache = Fmake_hash_table (2, args);
+  }
   staticpro (&xfont_scratch_props);
-  xfont_scratch_props = Qnil;;
+  xfont_scratch_props = Fmake_vector (make_number (8), Qnil);
   xfont_driver.type = Qx;
   register_font_driver (&xfont_driver, NULL);
 }