Change font_add_log to FONT_ADD_LOG.

diff --git a/src/ChangeLog b/src/ChangeLog
index 580a6b0c0c657d78912d8bb94a0abde835c1fb42..ccef6a0f450d0963aa46d60d1fb5583c1d387950 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,17 @@
+2009-06-23  Kenichi Handa  <handa@m17n.org>
+
+       * ftfont.c: Change font_add_log to FONT_ADD_LOG.
+
+       * w32font.c: Change font_add_log to FONT_ADD_LOG.
+
+       * w32uniscribe.c: Change font_add_log to FONT_ADD_LOG.
+
+       * xfont.c: Change font_add_log to FONT_ADD_LOG.
+
+       * fontset.c (fontset_font): Call FONT_DEFERRED_LOG.
+       (face_for_char): Don't call font_deferred_log here.
+       (font_for_char): Likewise.
+
 2009-06-22  Chong Yidong  <cyd@stupidchicken.com>
 
        * w32term.c (x_draw_glyph_string): Use the glyph string's width

diff --git a/src/ftfont.c b/src/ftfont.c
index 7dcdee61ab43b8d770f8e707cfa9fc999b02e6ea..695579a05f81d9dead8273a1b8f9b3bf660d49db 100644 (file)
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -1046,7 +1046,7 @@ ftfont_list (frame, spec)
   val = Qnil;
 
  finish:
-  font_add_log ("ftfont-list", spec, val);
+  FONT_ADD_LOG ("ftfont-list", spec, val);
   if (objset) FcObjectSetDestroy (objset);
   if (fontset) FcFontSetDestroy (fontset);
   if (pattern) FcPatternDestroy (pattern);
@@ -1099,7 +1099,7 @@ ftfont_match (frame, spec)
     }
   FcPatternDestroy (pattern);
 
-  font_add_log ("ftfont-match", spec, entity);
+  FONT_ADD_LOG ("ftfont-match", spec, entity);
   return entity;
 }
 

diff --git a/src/w32font.c b/src/w32font.c
index 7d9db3a6cd67ccb27454cb65d6e5dc1144195294..4148e87c3733c9a35764e299f0858253b1f5cdb1 100644 (file)
--- a/src/w32font.c
+++ b/src/w32font.c
@@ -201,7 +201,7 @@ w32font_list (frame, font_spec)
      Lisp_Object frame, font_spec;
 {
   Lisp_Object fonts = w32font_list_internal (frame, font_spec, 0);
-  font_add_log ("w32font-list", font_spec, fonts);
+  FONT_ADD_LOG ("w32font-list", font_spec, fonts);
   return fonts;
 }
 
@@ -214,7 +214,7 @@ w32font_match (frame, font_spec)
      Lisp_Object frame, font_spec;
 {
   Lisp_Object entity = w32font_match_internal (frame, font_spec, 0);
-  font_add_log ("w32font-match", font_spec, entity);
+  FONT_ADD_LOG ("w32font-match", font_spec, entity);
   return entity;
 }
 

diff --git a/src/w32uniscribe.c b/src/w32uniscribe.c
index f865c1abfd08a230bedf3cab5f495b42d2ba7acc..9e75b671616f95e2e68cc65d1ad8928943a944a8 100644 (file)
--- a/src/w32uniscribe.c
+++ b/src/w32uniscribe.c
@@ -78,7 +78,7 @@ uniscribe_list (frame, font_spec)
      Lisp_Object frame, font_spec;
 {
   Lisp_Object fonts = w32font_list_internal (frame, font_spec, 1);
-  font_add_log ("uniscribe-list", font_spec, fonts);
+  FONT_ADD_LOG ("uniscribe-list", font_spec, fonts);
   return fonts;
 }
 
@@ -87,7 +87,7 @@ uniscribe_match (frame, font_spec)
      Lisp_Object frame, font_spec;
 {
   Lisp_Object entity = w32font_match_internal (frame, font_spec, 1);
-  font_add_log ("uniscribe-match", font_spec, entity);
+  FONT_ADD_LOG ("uniscribe-match", font_spec, entity);
   return entity;
 }
 

diff --git a/src/xfont.c b/src/xfont.c
index 35113fdf798dc6f1162579fc44334ea818aa3745..ad12800efb4ea6c19eefdbe6f0869b4e62bbf7b3 100644 (file)
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -476,7 +476,7 @@ xfont_list_pattern (Display *display, char *pattern,
   x_uncatch_errors ();
   UNBLOCK_INPUT;
 
-  font_add_log ("xfont-list", build_string (pattern), list);
+  FONT_ADD_LOG ("xfont-list", build_string (pattern), list);
   return list;
 }
 
@@ -615,7 +615,7 @@ xfont_match (frame, spec)
     }
   UNBLOCK_INPUT;
 
-  font_add_log ("xfont-match", spec, entity);
+  FONT_ADD_LOG ("xfont-match", spec, entity);
   return entity;
 }
 
@@ -701,7 +701,7 @@ xfont_open (f, entity, pixel_size)
   registry = AREF (entity, FONT_REGISTRY_INDEX);
   if (font_registry_charsets (registry, &encoding, &repertory) < 0)
     {
-      font_add_log ("  x:unknown registry", registry, Qnil);
+      FONT_ADD_LOG ("  x:unknown registry", registry, Qnil);
       return Qnil;
     }
 
@@ -717,7 +717,7 @@ xfont_open (f, entity, pixel_size)
   len = font_unparse_xlfd (entity, pixel_size, name, 512);
   if (len <= 0 || (len = xfont_encode_coding_xlfd (name)) < 0)
     {
-      font_add_log ("  x:unparse failed", entity, Qnil);
+      FONT_ADD_LOG ("  x:unparse failed", entity, Qnil);
       return Qnil;
     }
 
@@ -748,7 +748,7 @@ xfont_open (f, entity, pixel_size)
       len = font_unparse_xlfd (temp, pixel_size, name, 512);
       if (len <= 0 || (len = xfont_encode_coding_xlfd (name)) < 0)
        {
-         font_add_log ("  x:unparse failed", temp, Qnil);
+         FONT_ADD_LOG ("  x:unparse failed", temp, Qnil);
          return Qnil;
        }
       xfont = XLoadQueryFont (display, name);
@@ -792,7 +792,7 @@ xfont_open (f, entity, pixel_size)
 
   if (! xfont)
     {
-      font_add_log ("  x:open failed", build_string (name), Qnil);
+      FONT_ADD_LOG ("  x:open failed", build_string (name), Qnil);
       return Qnil;
     }