(Foptimize_char_table): Fix arg for CHARSET_DIMENSION.

diff --git a/src/fns.c b/src/fns.c
index 854c46cdc6b497d26864713de5724e9777eaf729..b09008f7586c21173df22aac6abe732cad5d7ffe 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2418,7 +2418,7 @@ DEFUN ("optimize-char-table", Foptimize_char_table, Soptimize_char_table,
       elt = XCHAR_TABLE (table)->contents[i];
       if (!SUB_CHAR_TABLE_P (elt))
        continue;
-      dim = CHARSET_DIMENSION (i);
+      dim = CHARSET_DIMENSION (i - 128);
       if (dim == 2)
        for (j = 32; j < SUB_CHAR_TABLE_ORDINARY_SLOTS; j++)
          optimize_sub_char_table (XCHAR_TABLE (elt)->contents + j, dim);