Mercurial > emacs
changeset 95661:e9980210e4ed
*** empty log message ***
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 08 Jun 2008 11:01:55 +0000 |
| parents | 048996b7366b |
| children | d3b7d58fe4e1 |
| files | src/.gdbinit |
| diffstat | 1 files changed, 17 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/.gdbinit Sun Jun 08 10:49:19 2008 +0000 +++ b/src/.gdbinit Sun Jun 08 11:01:55 2008 +0000 @@ -1039,6 +1039,23 @@ echo \n end +define xfont + xgetptr $ + set $size = (((struct Lisp_Vector *) $ptr)->size & 0x1FF) + if $size == FONT_SPEC_MAX + print (struct font_spec *) $ptr + else + if $size == FONT_ENTITY_MAX + print (struct font_entity *) $ptr + else + print (struct font *) $ptr + end + end +end +document xfont +Print $ assuming it is a list font (font-spec, font-entity, or font-object). +end + define xbacktrace set $bt = backtrace_list while $bt