* 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 1bfc293c4669bdb3874c90614ed84a327922d806..2668772c2ed0faf01c92aa3e67c4740551ee45b6 100644 (file)
--- 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