# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1213777996 0
# Node ID 0f831953ffb8aff67e61a5cd9da2d4e8149b07d1
# Parent  4c8ca47f4ea8d3021de8bb80fa7b5450f4a87f9e
Add font logging to list and match functions.

diff -r 4c8ca47f4ea8 -r 0f831953ffb8 src/ChangeLog
--- a/src/ChangeLog	Wed Jun 18 03:21:59 2008 +0000
+++ b/src/ChangeLog	Wed Jun 18 08:33:16 2008 +0000
@@ -1,3 +1,9 @@
+2008-06-18  Jason Rumney  <jasonr@gnu.org>
+
+        * w32font.c (w32font_list, w32font_match): Add logging.
+
+        * w32uniscribe (uniscribe_list, uniscribe_match): Add logging.
+
 2008-06-17  Chong Yidong  <cyd@stupidchicken.com>
 
 	* font.c (font_parse_fcname): Store divider characters for
diff -r 4c8ca47f4ea8 -r 0f831953ffb8 src/w32font.c
--- a/src/w32font.c	Wed Jun 18 03:21:59 2008 +0000
+++ b/src/w32font.c	Wed Jun 18 08:33:16 2008 +0000
@@ -162,7 +162,9 @@
 w32font_list (frame, font_spec)
      Lisp_Object frame, font_spec;
 {
-  return w32font_list_internal (frame, font_spec, 0);
+  Lisp_Object fonts = w32font_list_internal (frame, font_spec, 0);
+  font_add_log ("w32font-list", font_spec, fonts);
+  return fonts;
 }
 
 /* w32 implementation of match for font backend.
@@ -173,7 +175,9 @@
 w32font_match (frame, font_spec)
      Lisp_Object frame, font_spec;
 {
-  return w32font_match_internal (frame, font_spec, 0);
+  Lisp_Object entity = w32font_match_internal (frame, font_spec, 0);
+  font_add_log ("w32font-match", font_spec, entity);
+  return entity;
 }
 
 /* w32 implementation of list_family for font backend.
diff -r 4c8ca47f4ea8 -r 0f831953ffb8 src/w32uniscribe.c
--- a/src/w32uniscribe.c	Wed Jun 18 03:21:59 2008 +0000
+++ b/src/w32uniscribe.c	Wed Jun 18 08:33:16 2008 +0000
@@ -76,14 +76,18 @@
 uniscribe_list (frame, font_spec)
      Lisp_Object frame, font_spec;
 {
-  return w32font_list_internal (frame, font_spec, 1);
+  Lisp_Object fonts = w32font_list_internal (frame, font_spec, 1);
+  font_add_log ("uniscribe-list", font_spec, fonts);
+  return fonts;
 }
 
 static Lisp_Object
 uniscribe_match (frame, font_spec)
      Lisp_Object frame, font_spec;
 {
-  return w32font_match_internal (frame, font_spec, 1);
+  Lisp_Object entity = w32font_match_internal (frame, font_spec, 1);
+  font_add_log ("uniscribe-match", font_spec, entity);
+  return entity;
 }
 
 static Lisp_Object