(xhashtable): New command.

1 files changed, 12 insertions, 0 deletions

diff --git a/src/.gdbinit b/src/.gdbinit
index 52e902809f6..b50d672c73b 100644
--- 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 *$