From 3266f62b072157f421905ea26f670e3a007690c6 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 7 Aug 2000 12:31:50 +0000
Subject: [PATCH] (xhashtable): New command.

---
 src/.gdbinit | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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 *$
-- 
2.39.2