Mercurial > hg > xemacs-beta

comparison src/mule-ccl.c @ 347:7c94d56991e1 r21-1-3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-3
author cvs
date Mon, 13 Aug 2007 10:53:48 +0200
parents 90d73dddcdc4
children cc15677e0335
comparison
equal deleted inserted replaced
346:dd0986ffd2cf 347:7c94d56991e1
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 {
1100 staticpro (&Vccl_program_table); 1108 staticpro (&Vccl_program_table);
1101 Vccl_program_table = Fmake_vector (make_int (32), Qnil); 1109 Vccl_program_table = Fmake_vector (make_int (32), Qnil);
1102 1110
1103 DEFVAR_LISP ("font-ccl-encoder-alist", &Vfont_ccl_encoder_alist /* 1111 DEFVAR_LISP ("font-ccl-encoder-alist", &Vfont_ccl_encoder_alist /*
1104 Alist of fontname patterns vs corresponding CCL program. 1112 Alist of fontname patterns vs corresponding CCL program.
1111 The code point in the font is set in CCL registers R1 and R2 1119 The code point in the font is set in CCL registers R1 and R2
1112 when the execution terminated. 1120 when the execution terminated.
1113 If the font is single-byte font, the register R2 is not used. 1121 If the font is single-byte font, the register R2 is not used.
1114 */ ); 1122 */ );
1115 Vfont_ccl_encoder_alist = Qnil; 1123 Vfont_ccl_encoder_alist = Qnil;
1116
1117 DEFSUBR (Fccl_execute);
1118 DEFSUBR (Fccl_execute_on_string);
1119 DEFSUBR (Fregister_ccl_program);
1120 } 1124 }
1121 1125
1122 #endif /* emacs */ 1126 #endif /* emacs */