From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 2 Jul 1997 00:37:26 +0000 (+0000)
Subject: (xcons): Print car and cdr in hex.
X-Git-Tag: emacs-20.1~1424
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f4938843687d4ffe878cf8d456b8df33f2809a3;p=emacs.git

(xcons): Print car and cdr in hex.
(nextcons): New command.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index ab47f0844ac..1c9c57134e8 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -200,13 +200,22 @@ end
 
 define xcons
 print (struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits)
-output *$
+output/x *$
 echo \n
 end
 document xcons
 Print the contents of $, assuming it is an Emacs Lisp cons.
 end
 
+define nextcons
+p $.cdr
+xcons
+end
+document nextcons
+Print the contents of the next cell in a list.
+This assumes that the last thing you printed was a cons cell contents
+(type struct Lisp_Cons) or a pointer to one.
+end
 define xcar
 print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0)
 end