From: Kenichi Handa <handa@m17n.org>
Date: Mon, 30 Oct 2000 01:14:06 +0000 (+0000)
Subject: (Foptimize_char_table): Fix arg for CHARSET_DIMENSION.
X-Git-Tag: emacs-pretest-21.0.90~436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a8009a04557c9b913623daffcf7b278fb42abf1;p=emacs.git

(Foptimize_char_table): Fix arg for CHARSET_DIMENSION.
---

diff --git a/src/fns.c b/src/fns.c
index 854c46cdc6b..b09008f7586 100644
--- 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);