(Vccl_translation_table_vector, Qccl_program, Qccl_translation_table, Qccl_translation_table_id): New variables. append new symbols. Qccl_translation_table and Qccl_translation_table_id. (CCL_Call): Fix the comment. (CCL_ReadMultibyteCharacter, CCL_WriteMultibyteCharacter, CCL_UnifyCharacter, CCL_UnifyCharacterConstTbl, CCL_IterateMultipleMap, CCL_TranslateMultipleMap): New macros for CCL Commands. (EXCMD): New macro. (ccl_driver): New case lable `CCL_Extention'. (setup_ccl_program): Initialize the member `private_state' of CCL. (Fregister_ccl_program): Delete unused variable IDX. (Fregister_ccl_translation_table): New function. (syms_of_ccl): Intern and staticpro Qccl_program, Qccl_translation_table, and Qccl_translation_table_id. Declare `ccl-translation-table-vector' as a Lisp variable. Declare register-ccl-translation-table as a Lisp function.