From de2436ef7b89c052dc78532eccaef1840f7dee0a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 17 Jul 1997 18:32:27 +0000 Subject: [PATCH] (xcar, xcdr): Print with /x. --- src/.gdbinit | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/.gdbinit b/src/.gdbinit index 1c9c57134e8..e9bb716a091 100644 --- a/src/.gdbinit +++ b/src/.gdbinit @@ -217,14 +217,14 @@ 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) +print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0) end document xcar Print the car of $, assuming it is an Emacs Lisp pair. end define xcdr -print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0) +print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0) end document xcdr Print the cdr of $, assuming it is an Emacs Lisp pair. -- 2.39.2