From 07d9ba9bd85ff016661a3b4571a949f8cf2655a1 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Wed, 18 Jun 2008 08:33:16 +0000 Subject: [PATCH] Add font logging to list and match functions. --- src/ChangeLog | 6 ++++++ src/w32font.c | 8 ++++++-- src/w32uniscribe.c | 8 ++++++-- 3 files changed, 18 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 2e002b65d7..7b14e5eeff 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2008-06-18 Jason Rumney + + * w32font.c (w32font_list, w32font_match): Add logging. + + * w32uniscribe (uniscribe_list, uniscribe_match): Add logging. + 2008-06-17 Chong Yidong * font.c (font_parse_fcname): Store divider characters for diff --git a/src/w32font.c b/src/w32font.c index 9e4bb494e7..0dc18674aa 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 2abd742e8d..bd201739f5 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 -- 2.20.1