Mercurial > emacs

changeset 18835:8b32c6fe8728

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xcar, xcdr): Print with /x.
author Richard M. Stallman <rms@gnu.org>
date Thu, 17 Jul 1997 18:32:27 +0000
parents a4b74a7b692a
children fb373eed5b38
files src/.gdbinit
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.