# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 730476859 0
# Node ID 80482f2d54bf574743a297f8c642b798a1ec122b
# Parent  b403b27bc31cc1f722abbd37c74fb962df3102e9
	* .gdbinit (xprocess): New command.

diff -r b403b27bc31c -r 80482f2d54bf src/.gdbinit
--- a/src/.gdbinit	Tue Feb 23 14:13:27 1993 +0000
+++ b/src/.gdbinit	Tue Feb 23 14:14:19 1993 +0000
@@ -137,6 +137,15 @@
 Print the address of the subr which the Lisp_Object $ points to.
 end
 
+define xprocess
+print (struct Lisp_Process *) (($ & 0x00ffffff) | $data_seg_bits)
+output *$
+echo \n
+end
+document xprocess
+Print the address of the struct Lisp_process which the Lisp_Object $ points to.
+end
+
 define xscrollbar
 print (struct scrollbar *) (($ & 0x00ffffff) | $data_seg_bits)
 output *$