Commit edeef421 authored by Kenichi Handa's avatar Kenichi Handa

(Fccl_execute_on_string): Fix the condition of terminating

the loop.  When quitted, show a proper error message.
parent 2cf69ec1
......@@ -2167,13 +2167,15 @@ usage: (ccl-execute-on-string CCL-PROGRAM STATUS STRING &optional CONTINUE UNIBY
break;
}
if (ccl.status != CCL_STAT_SUSPEND_BY_SRC)
if (ccl.status != CCL_STAT_SUSPEND_BY_SRC
|| str_chars == consumed_chars)
break;
}
if (ccl.status != CCL_STAT_SUCCESS
&& ccl.status != CCL_STAT_SUSPEND_BY_SRC)
if (ccl.status == CCL_STAT_INVALID_CMD)
error ("Error in CCL program at %dth code", ccl.ic);
if (ccl.status == CCL_STAT_QUIT)
error ("CCL program interrupted at %dth code", ccl.ic);
for (i = 0; i < 8; i++)
ASET (status, i, make_number (ccl.reg[i]));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment