Mercurial > emacs

changeset 18522:c572c073c982

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xcons): Print car and cdr in hex. (nextcons): New command.
author Richard M. Stallman <rms@gnu.org>
date Wed, 02 Jul 1997 00:37:26 +0000
parents 47df19cf0eec
children 6b5af78c8b21
files src/.gdbinit
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/.gdbinit	Wed Jul 02 00:06:55 1997 +0000
+++ b/src/.gdbinit	Wed Jul 02 00:37:26 1997 +0000
@@ -200,13 +200,22 @@
 
 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