From: Kenichi Handa <handa@m17n.org>
Date: Thu, 5 Dec 2002 04:25:02 +0000 (+0000)
Subject: (Fdefine_charset_internal): Setup charset.fast_map correctly.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~149
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f148205fee996298ebfe95a272c9347030176b00;p=emacs.git

(Fdefine_charset_internal): Setup charset.fast_map correctly.
---

diff --git a/src/charset.c b/src/charset.c
index 05dc94acb0e..60ea42c2a94 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -900,9 +900,10 @@ usage: (define-charset-internal ...)  */)
       if (charset.max_char > MAX_CHAR)
 	error ("Unsupported max char: %d", charset.max_char);
 
-      for (i = charset.min_char; i < 0x10000 && i <= charset.max_char;
-	   i += 128)
+      i = (charset.min_char >> 7) << 7;
+      for (; i < 0x10000 && i <= charset.max_char; i += 128)
 	CHARSET_FAST_MAP_SET (i, charset.fast_map);
+      i = (i >> 12) << 12;
       for (; i <= charset.max_char; i += 0x1000)
 	CHARSET_FAST_MAP_SET (i, charset.fast_map);
     }