# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869164347 0
# Node ID 8b32c6fe8728cd1f5f48d315d91e4ada27c0e5da
# Parent  a4b74a7b692acd28020c44d9bd82ccb859b957a7
(xcar, xcdr): Print with /x.

diff -r a4b74a7b692a -r 8b32c6fe8728 src/.gdbinit
--- a/src/.gdbinit	Thu Jul 17 18:18:05 1997 +0000
+++ b/src/.gdbinit	Thu Jul 17 18:32:27 1997 +0000
@@ -217,14 +217,14 @@
 (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.