From: Grégoire Jadi <gregoire.jadi@gmail.com>
Date: Sat, 29 Jun 2013 15:49:35 +0000 (+0200)
Subject: * src/.gdbinit (xxwidget): Add convenient command to print some
X-Git-Tag: emacs-25.0.90~2895
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e791b833abdf63dee8195b371dbf0f084b76e512;p=emacs.git

* src/.gdbinit (xxwidget): Add convenient command to print some
information about an xwidget from GDB (similar to xbuffer, xwindow, ...).
(xpr): Use `xxwidget' on PVEC_XWIDGET.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index 1bfc293c466..2668772c2ed 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -992,6 +992,23 @@ document xscrollbar
 Print $ as a scrollbar pointer.
 end
 
+define xxwidget
+  xgetptr $
+  set $xw = (struct xwidget *) $ptr
+  print $xw
+  printf " Type: "
+  xprintsym $xw->type
+  echo \n
+  printf " Title: "
+  xgetptr $xw->title
+  set $title = (struct Lisp_String *) $ptr
+  xprintstr $title
+  echo \n
+end
+document xxwidget
+Print $ assuming it is a xwidget.
+end
+
 define xpr
   xtype
   if $type == Lisp_Int0 || $type == Lisp_Int1
@@ -1061,6 +1078,9 @@ define xpr
       if $vec == PVEC_HASH_TABLE
 	xhashtable
       end
+      if $vec == PVEC_XWIDGET
+	xxwidget
+      end
     else
       xvector
     end