From af800dc07518034c070aff803c24fe5cdc8e44b7 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Tue, 7 Jul 2009 06:25:45 +0000
Subject: [PATCH] (xcharset): Fix the treating $arg0.

---
 src/.gdbinit | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/.gdbinit b/src/.gdbinit
index fc2ad817028..5c7e6d8e525 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -1009,7 +1009,7 @@ end
 define xcharset
   set $tmp = (struct Lisp_Hash_Table *) ((Vcharset_hash_table & $valmask) | gdb_data_seg_bits)
   set $tmp = (struct Lisp_Vector *) (($tmp->key_and_value & $valmask) | gdb_data_seg_bits)
-  p $tmp->contents[$arg0->hash_index * 2]
+  p $tmp->contents[charset_table[$arg0].hash_index * 2]
   pr
 end
 document xcharset
-- 
2.39.2