From: Kenichi Handa <handa@m17n.org>
Date: Sun, 8 Jun 2008 11:01:55 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-pretest-23.0.90~5012
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=322081f146a566355e6592f017733a170ed969b1;p=emacs.git

*** empty log message ***
---

diff --git a/src/.gdbinit b/src/.gdbinit
index 3901fcfbebc..fd911b9cbd6 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -1039,6 +1039,23 @@ define xfontset
   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