Commit 07d9ba9b authored by Jason Rumney's avatar Jason Rumney

Add font logging to list and match functions.

parent a56fc145
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
......
......@@ -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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment