]> code.delx.au - gnu-emacs/blobdiff - src/coding.c
w32inevt.c (key_event): Remove unnecessary comparison of
[gnu-emacs] / src / coding.c
index 6b63d1f1a42fcd249a642b24838ac5e4f2dda676..935d32e6a5873f2354d7c9cb61c4ef72f499bc35 100644 (file)
@@ -3239,9 +3239,13 @@ detect_coding_iso_2022 (coding, detect_info)
                  int i = 1;
                  while (src < src_end)
                    {
+                     src_base = src;
                      ONE_MORE_BYTE (c);
                      if (c < 0xA0)
-                       break;
+                       {
+                         src = src_base;
+                         break;
+                       }
                      i++;
                    }
 
@@ -7413,7 +7417,8 @@ consume_chars (coding, translation_table, max_lookup)
        {
          EMACS_INT bytes;
 
-         if (coding->encoder == encode_coding_raw_text)
+         if (coding->encoder == encode_coding_raw_text
+             || coding->encoder == encode_coding_ccl)
            c = *src++, pos++;
          else if ((bytes = MULTIBYTE_LENGTH (src, src_end)) > 0)
            c = STRING_CHAR_ADVANCE_NO_UNIFY (src), pos += bytes;