(xhashtable): New command.

diff --git a/src/.gdbinit b/src/.gdbinit
index 52e902809f69fba12808bad3e6c7a454839d2c1b..b50d672c73b977e0132f32b5fa013da0fbf07d21 100644 (file)
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -3,6 +3,7 @@ set main
 
 # Find lwlib source files too.
 dir ../lwlib
+dir /gd/gnu/lesstif-0.89.9/lib/Xm
 
 # Don't enter GDB when user types C-g to quit.
 # This has one unfortunate effect: you can't type C-c
@@ -10,6 +11,10 @@ dir ../lwlib
 # However, C-z works just as well in that case.
 handle 2 noprint pass
 
+# Don't pass SIGALRM to Emacs.  This makes problems when
+# debugging.
+handle SIGALRM ignore
+
 # Set up a mask to use.
 # This should be EMACS_INT, but in some cases that is a macro.
 # long ought to work in all cases right now.
@@ -243,6 +248,13 @@ Set $ as a buffer pointer, assuming it is an Emacs Lisp buffer value.
 Print the name of the buffer.
 end
 
+define xhashtable
+print (struct Lisp_Hash_Table *) (($ & $valmask) | gdb_data_seg_bits)
+end
+document xhashtable
+Set $ as a hash table pointer, assuming it is an Emacs Lisp hash table value.
+end
+
 define xcons
 print (struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits)
 output/x *$