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

(setup_coding_system): For a type 4 coding system,

Browse source 
FLAGS member of coding spec is a cons of CCL program symbols.
This commit is contained in:
Kenichi Handa 1998-04-20 02:14:57 +00:00
parent 7fbf766f70
commit d21ca14d48
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/coding.c
View file

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