From: Kenichi Handa <handa@m17n.org>
Date: Mon, 28 Jan 2008 07:05:37 +0000 (+0000)
Subject: (xfontset): New function.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~20
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e067dbc984eb89a5acbe1d6837f03dfce4ba07d;p=emacs.git

(xfontset): New function.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index 2c3750bd8de..be7473f0a82 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -1015,6 +1015,29 @@ document xcharset
   Print the name of charset that has ID (argument).
 end
 
+define xfontset
+  xgetptr $
+  set $tbl = (struct Lisp_Char_Table *) $ptr
+  print $tbl
+  xgetint $tbl->extras[0]
+  printf " ID:%d", $int
+  xgettype $tbl->extras[1]
+  xgetptr $tbl->extras[1]
+  if $type == Lisp_String
+    set $ptr = (struct Lisp_String *) $ptr
+    printf " Name:"
+    xprintstr $ptr
+  else
+    xgetptr $tbl->extras[2]
+    set $ptr = (struct Lisp_Char_Table *) $ptr
+    xgetptr $ptr->extras[1]
+    set $ptr = (struct Lisp_String *) $ptr
+    printf " Realized from:"
+    xprintstr $ptr
+  end
+  echo \n
+end
+
 define xbacktrace
   set $bt = backtrace_list
   while $bt