# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 893038497 0
# Node ID 4097e558fa19fcc724d7fa9a09bbb65084ec8e5f
# Parent  a03ddc4a728bb74d7c403bac4202446fabfdbe30
(setup_coding_system): For a type 4 coding system,
FLAGS member of coding spec is a cons of CCL program symbols.

diff -r a03ddc4a728b -r 4097e558fa19 src/coding.c
--- a/src/coding.c	Mon Apr 20 02:14:20 1998 +0000
+++ b/src/coding.c	Mon Apr 20 02:14:57 1998 +0000
@@ -3045,12 +3045,18 @@
 	|= 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;