From 6f4938843687d4ffe878cf8d456b8df33f2809a3 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Wed, 2 Jul 1997 00:37:26 +0000
Subject: [PATCH] (xcons): Print car and cdr in hex. (nextcons): New command.

---
 src/.gdbinit | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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
-- 
2.39.2