[Emacs-diffs] /srv/bzr/emacs/trunk r99382: Fix ccl encoding of unibyte source.

[Kenichi Handa]

------------------------------------------------------------
revno: 99382 [merge]
committer: Kenichi Handa  <address@hidden>
branch nick: trunk
timestamp: Wed 2010-01-20 13:01:57 +0900
message:
  Fix ccl encoding of unibyte source.
modified:
  src/ChangeLog
  src/coding.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2010-01-19 22:27:24 +0000
+++ b/src/ChangeLog     2010-01-20 02:33:52 +0000
@@ -1,3 +1,8 @@
+2010-01-20  Kenichi Handa  <address@hidden>
+
+       * coding.c (consume_chars): If ! multibyte and the encoder is ccl,
+       treat the source as actual byte sequence.
+
 2010-01-19  Alan Mackenzie  <address@hidden>
 
        Fix spurious before-change-functions invocation from (insert ?\n).

=== modified file 'src/coding.c'
--- a/src/coding.c      2010-01-14 11:31:16 +0000
+++ b/src/coding.c      2010-01-20 02:33:52 +0000
@@ -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;