(xcharset): Fix previous change.

diff --git a/src/.gdbinit b/src/.gdbinit
index 83314919e2717ebfa18802275a433cb622516c0f..5c7e6d8e5259fcf894fa60b60298c014b2345d28 100644 (file)
--- 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 * 2]
+  p $tmp->contents[charset_table[$arg0].hash_index * 2]
   pr
 end
 document xcharset

diff --git a/src/ChangeLog b/src/ChangeLog
index 3dc02d4978355ecc639e06984fe458dc43c083cd..12015414fe7da5776322928b1c13523ba7c6a65d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,6 +1,6 @@
 2009-07-07  Kenichi Handa  <handa@m17n.org>
 
-       * .gdbinit (xcharset): Fix the treating $arg0.
+       * .gdbinit (xcharset): Fix the treating of $arg0.
 
        * character.h (unibyte_has_multibyte_table): Delete extern.
        (UNIBYTE_CHAR_HAS_MULTIBYTE_P): Delete it.