Mercurial > emacs
changeset 23201:392b44751a22
(ccl_coding_driver): Always calculate correct mulibyte
chars in produced byte sequence.
(Ffind_operation_coding_system): Doc-string fixed.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 07 Sep 1998 13:39:15 +0000 |
| parents | 4750ba95a176 |
| children | 750deb2c6c0b |
| files | src/coding.c |
| diffstat | 1 files changed, 6 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/src/coding.c Mon Sep 07 07:28:16 1998 +0000 +++ b/src/coding.c Mon Sep 07 13:39:15 1998 +0000 @@ -3612,18 +3612,11 @@ coding->produced = ccl_driver (ccl, source, destination, src_bytes, dst_bytes, &(coding->consumed)); - if (encodep) - { - coding->produced_char = coding->produced; - coding->consumed_char - = multibyte_chars_in_text (source, coding->consumed); - } - else - { - coding->produced_char - = multibyte_chars_in_text (destination, coding->produced); - coding->consumed_char = coding->consumed; - } + coding->produced_char + = multibyte_chars_in_text (destination, coding->produced); + coding->consumed_char + = multibyte_chars_in_text (source, coding->consumed); + switch (ccl->status) { case CCL_STAT_SUSPEND_BY_SRC: @@ -4988,7 +4981,7 @@ DEFUN ("find-operation-coding-system", Ffind_operation_coding_system, Sfind_operation_coding_system, 1, MANY, 0, "Choose a coding system for an operation based on the target name.\n\ -The value names a pair of coding systems: (DECODING-SYSTEM ENCODING-SYSTEM).\n\ +The value names a pair of coding systems: (DECODING-SYSTEM . ENCODING-SYSTEM).\n\ DECODING-SYSTEM is the coding system to use for decoding\n\ \(in case OPERATION does decoding), and ENCODING-SYSTEM is the coding system\n\ for encoding (in case OPERATION does encoding).\n\