# HG changeset patch
# User Kenichi Handa  <handa@m17n.org>
# Date 1263960117 -32400
# Node ID 89b4f7566280b5203107cf09ad65d69ae0f267fa
# Parent  9da21e7d5995f2d8d2a4e121364d309e77e24589# Parent  1a8e31a9115acf8776ce8c2ef017cdf2f95eb799
Fix ccl encoding of unibyte source.

diff -r 9da21e7d5995 -r 89b4f7566280 src/ChangeLog
--- a/src/ChangeLog	Tue Jan 19 19:49:35 2010 -0800
+++ b/src/ChangeLog	Wed Jan 20 13:01:57 2010 +0900
@@ -1,3 +1,8 @@
+2010-01-20  Kenichi Handa  <handa@m17n.org>
+
+	* coding.c (consume_chars): If ! multibyte and the encoder is ccl,
+	treat the source as actual byte sequence.
+
 2010-01-19  Alan Mackenzie  <acm@muc.de>
 
 	Fix spurious before-change-functions invocation from (insert ?\n).
diff -r 9da21e7d5995 -r 89b4f7566280 src/coding.c
--- a/src/coding.c	Tue Jan 19 19:49:35 2010 -0800
+++ b/src/coding.c	Wed Jan 20 13:01:57 2010 +0900
@@ -7417,7 +7417,8 @@
 	{
 	  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;