From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 17 Jul 1997 18:32:27 +0000 (+0000)
Subject: (xcar, xcdr): Print with /x.
X-Git-Tag: emacs-20.1~1111
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de2436ef7b89c052dc78532eccaef1840f7dee0a;p=emacs.git

(xcar, xcdr): Print with /x.
---

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.