From: Jason Rumney <jasonr@gnu.org>
Date: Wed, 18 Jun 2008 08:33:16 +0000 (+0000)
Subject: Add font logging to list and match functions.
X-Git-Tag: emacs-pretest-23.0.90~4675
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07d9ba9bd85ff016661a3b4571a949f8cf2655a1;p=emacs.git

Add font logging to list and match functions.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 2e002b65d73..7b14e5eeffa 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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 --git a/src/w32font.c b/src/w32font.c
index 9e4bb494e70..0dc18674aa0 100644
--- a/src/w32font.c
+++ b/src/w32font.c
@@ -162,7 +162,9 @@ static Lisp_Object
 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 @@ static Lisp_Object
 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 --git a/src/w32uniscribe.c b/src/w32uniscribe.c
index 2abd742e8d5..bd201739f51 100644
--- a/src/w32uniscribe.c
+++ b/src/w32uniscribe.c
@@ -76,14 +76,18 @@ static Lisp_Object
 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