(Fdefine_coding_system_internal): Fix category setting

for a coding system of type iso-2022.

diff --git a/src/coding.c b/src/coding.c
index c53760a..a6cf9ce 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -7599,8 +7599,7 @@ usage: (define-coding-system-internal ...)  */)
        {
          int id = XINT (AREF (initial, 1));
 
-         category = (((i & (CODING_ISO_FLAG_LOCKING_SHIFT
-                            | CODING_ISO_FLAG_SINGLE_SHIFT))
+         category = (((i & CODING_ISO_FLAG_LOCKING_SHIFT)
                       || EQ (args[coding_arg_charset_list], Qiso_2022)
                       || id < 0)
                      ? coding_category_iso_8_else