# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1212922915 0
# Node ID e9980210e4eddb4cdf46ca9add8796285a63af8e
# Parent  048996b7366b9684ac055a83b1ffb08d9856f72a
*** empty log message ***

diff -r 048996b7366b -r e9980210e4ed src/.gdbinit
--- 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