From: Kenichi Handa <handa@m17n.org>
Date: Fri, 26 May 2000 07:26:53 +0000 (+0000)
Subject: (map_char_table): Ignore char-table entries for
X-Git-Tag: emacs-pretest-21.0.90~3686
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df2fbcebeb19bbe0e783595a7014a681bfe31a5d;p=emacs.git

(map_char_table): Ignore char-table entries for
charsets eight-bit-control and eight-bit-graphic.
---

diff --git a/src/fns.c b/src/fns.c
index 639ee5d95ed..8c1ffb45469 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2372,7 +2372,10 @@ map_char_table (c_function, function, subtable, arg, depth, indices)
       elt = XCHAR_TABLE (subtable)->contents[i];
       XSETFASTINT (indices[depth], i);
       charset = XFASTINT (indices[0]) - 128;
-      if (!CHARSET_DEFINED_P (charset))
+      if (depth == 0
+	  && (!CHARSET_DEFINED_P (charset)
+	      || charset == CHARSET_8_BIT_CONTROL
+	      || charset == CHARSET_8_BIT_GRAPHIC))
 	continue;
 
       if (SUB_CHAR_TABLE_P (elt))