mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

(Fccl_execute_on_string): Fix the condition of loop.

Browse source
This commit is contained in:
Kenichi Handa 2003-12-29 07:51:22 +00:00
parent 8e4cd685a5
commit 99e293b5b2
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ccl.c
View file

@ -2023,7 +2023,7 @@ See the documentation of `define-ccl-program' for the detail of CCL program. */
consumed_chars = consumed_bytes = 0;
produced_chars = 0;
while (consumed_bytes < str_bytes)
while (1)
{
const unsigned char *p = SDATA (str) + consumed_bytes;
const unsigned char *endp = SDATA (str) + str_bytes;
@ -2047,8 +2047,6 @@ See the documentation of `define-ccl-program' for the detail of CCL program. */
{
ccl_driver (&ccl, src, destination, src_size, CCL_EXECUTE_BUF_SIZE,
Qnil);
if (ccl.status != CCL_STAT_SUSPEND_BY_DST)
break;
produced_chars += ccl.produced;
if (NILP (unibyte_p))
{
@ -2077,6 +2075,8 @@ See the documentation of `define-ccl-program' for the detail of CCL program. */
}
src += ccl.consumed;
src_size -= ccl.consumed;
if (ccl.status != CCL_STAT_SUSPEND_BY_DST)
break;
}
if (ccl.status != CCL_STAT_SUSPEND_BY_SRC)