[Emacs-diffs] Changes to emacs/src/.gdbinit,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/06/08 11:01:57

Index: .gdbinit
===================================================================
RCS file: /cvsroot/emacs/emacs/src/.gdbinit,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -b -r1.99 -r1.100
--- .gdbinit    15 Feb 2008 22:42:02 -0000      1.99
+++ .gdbinit    8 Jun 2008 11:01:55 -0000       1.100
@@ -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