# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1054816471 0
# Node ID 4e359ebf3984d429f0e3df7f2c4afb6441b9e7ab
# Parent  108e326323e3e6087d78070b39ca82f0cfbeab12
(decode_coding_iso_2022): Fix handling of invalid
bytes.
(raw_text_coding_system): Check NILP (coding_system).
(coding_inherit_eol_type): Check NILP (coding_system) and
NILP (parent).
(consume_chars): Fix for the case of raw-text.

diff -r 108e326323e3 -r 4e359ebf3984 src/coding.c
--- a/src/coding.c	Thu Jun 05 12:31:46 2003 +0000
+++ b/src/coding.c	Thu Jun 05 12:34:31 2003 +0000
@@ -3186,7 +3186,6 @@
 		*charbuf++ = *src_base;
 	      else
 		*charbuf++ = BYTE8_TO_CHAR (*src_base);
-	      char_offset++;
 	    }
 	}
       else if (composition_state == COMPOSING_NO)
@@ -4985,6 +4984,8 @@
   Lisp_Object spec, attrs;
   Lisp_Object eol_type, raw_text_eol_type;
 
+  if (NILP (coding_system))
+    return Qraw_text;
   spec = CODING_SYSTEM_SPEC (coding_system);
   attrs = AREF (spec, 0);
   
@@ -5012,10 +5013,13 @@
 {
   Lisp_Object spec, attrs, eol_type;
 
+  if (NILP (coding_system))
+    coding_system = Qraw_text;
   spec = CODING_SYSTEM_SPEC (coding_system);
   attrs = AREF (spec, 0);
   eol_type = AREF (spec, 2);
-  if (VECTORP (eol_type))
+  if (VECTORP (eol_type)
+      && ! NILP (parent))
     {
       Lisp_Object parent_spec;
       Lisp_Object parent_eol_type;
@@ -5497,8 +5501,9 @@
 	      produced_chars++;
 	    }
 	  else
-	    /* This is an annotation datum.  */
-	    buf -= c + 1;
+	    /* This is an annotation datum.  (-C) is the length of
+	       it.  */
+	    buf += -c - 1;
 	}
     }
   else
@@ -6043,9 +6048,10 @@
 
       if (! multibytep)
 	{
-	  EMACS_INT bytes = MULTIBYTE_LENGTH (src, src_end);
-
-	  if (bytes > 0)
+	  EMACS_INT bytes;
+
+	  if (! CODING_FOR_UNIBYTE (coding)
+	      && (bytes = MULTIBYTE_LENGTH (src, src_end)) > 0)
 	    c = STRING_CHAR_ADVANCE (src), pos += bytes;
 	  else
 	    c = *src++, pos++;