Mercurial > emacs
changeset 96071:0f831953ffb8
Add font logging to list and match functions.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Wed, 18 Jun 2008 08:33:16 +0000 |
| parents | 4c8ca47f4ea8 |
| children | 2398ec3bc9c5 |
| files | src/ChangeLog src/w32font.c src/w32uniscribe.c |
| diffstat | 3 files changed, 18 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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.
--- 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