Mercurial > hg > xemacs-beta

comparison src/mule-ccl.c @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 7c94d56991e1
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
1095 } 1095 }
1096 1096
1097 void 1097 void
1098 syms_of_mule_ccl (void) 1098 syms_of_mule_ccl (void)
1099 { 1099 {
1100 DEFSUBR (Fccl_execute);
1101 DEFSUBR (Fccl_execute_on_string);
1102 DEFSUBR (Fregister_ccl_program);
1103 }
1104
1105 void
1106 vars_of_mule_ccl (void)
1107 {
1108 staticpro (&Vccl_program_table); 1100 staticpro (&Vccl_program_table);
1109 Vccl_program_table = Fmake_vector (make_int (32), Qnil); 1101 Vccl_program_table = Fmake_vector (make_int (32), Qnil);
1110 1102
1111 DEFVAR_LISP ("font-ccl-encoder-alist", &Vfont_ccl_encoder_alist /* 1103 DEFVAR_LISP ("font-ccl-encoder-alist", &Vfont_ccl_encoder_alist /*
1112 Alist of fontname patterns vs corresponding CCL program. 1104 Alist of fontname patterns vs corresponding CCL program.
1119 The code point in the font is set in CCL registers R1 and R2 1111 The code point in the font is set in CCL registers R1 and R2
1120 when the execution terminated. 1112 when the execution terminated.
1121 If the font is single-byte font, the register R2 is not used. 1113 If the font is single-byte font, the register R2 is not used.
1122 */ ); 1114 */ );
1123 Vfont_ccl_encoder_alist = Qnil; 1115 Vfont_ccl_encoder_alist = Qnil;
1116
1117 DEFSUBR (Fccl_execute);
1118 DEFSUBR (Fccl_execute_on_string);
1119 DEFSUBR (Fregister_ccl_program);
1124 } 1120 }
1125 1121
1126 #endif /* emacs */ 1122 #endif /* emacs */