(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 639ee5d95ed0012c039ef5c4273fd487a9561321..8c1ffb454691fb68716ab27115e276582ffc7fca 100644 (file)
--- 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))