(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'.

2 files changed, 24 insertions, 65 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index d4b1c2daadd..23f08d6409e 100644
--- 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 87455bb504a..35113fdf798 100644
--- 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);
 }