procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(setup_coding_system): Get compiled CCL code by just

Browse source 
calling setup_coding_system.
This commit is contained in:
Kenichi Handa 1999-07-26 11:56:56 +00:00
parent 5232fa7b78
commit ef4ced281f
1 changed files with 5 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/coding.c
View file

@ -3165,22 +3165,12 @@ setup_coding_system (coding_system, coding)
coding->common_flags
|= CODING_REQUIRE_DECODING_MASK | CODING_REQUIRE_ENCODING_MASK;
{
Lisp_Object val;
Lisp_Object decoder, encoder;
val = XVECTOR (coding_spec)->contents[4];
if (CONSP (val)
&& SYMBOLP (XCONS (val)->car)
&& !NILP (decoder = Fget (XCONS (val)->car, Qccl_program_idx))
&& !NILP (decoder = Fcdr (Faref (Vccl_program_table, decoder)))
&& SYMBOLP (XCONS (val)->cdr)
&& !NILP (encoder = Fget (XCONS (val)->cdr, Qccl_program_idx))
&& !NILP (encoder = Fcdr (Faref (Vccl_program_table, encoder))))
{
setup_ccl_program (&(coding->spec.ccl.decoder), decoder);
setup_ccl_program (&(coding->spec.ccl.encoder), encoder);
}
else
if (! CONSP (val)
|| setup_ccl_program (&(coding->spec.ccl.decoder),
XCONS (val)->car) < 0
|| setup_ccl_program (&(coding->spec.ccl.encoder),
XCONS (val)->cdr) < 0)
goto label_invalid_coding_system;
bzero (coding->spec.ccl.valid_codes, 256);