Mercurial > emacs
changeset 21518:1b0d88d6fb42
(ccl_driver, syms_of_ccl): Fix mixing of Lisp_Object and
int.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Tue, 14 Apr 1998 12:52:08 +0000 |
| parents | 4d5cd99a3d51 |
| children | 9b26f9300d41 |
| files | src/ccl.c |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ccl.c Tue Apr 14 12:38:25 1998 +0000 +++ b/src/ccl.c Tue Apr 14 12:52:08 1998 +0000 @@ -1216,7 +1216,7 @@ { size = XVECTOR (Vccl_translation_table_vector)->size; - point = ccl_prog[ic++]; + point = XINT (ccl_prog[ic++]); if (point >= size) continue; table = XVECTOR (Vccl_translation_table_vector)-> contents[point]; @@ -1285,8 +1285,8 @@ table_vector_size = XVECTOR (Vccl_translation_table_vector)->size; for (;i < j;i++) { - point = ccl_prog[ic++]; - if (XINT(point) == -1) + point = XINT (ccl_prog[ic++]); + if (point == -1) { skip_to_next = 0; continue; @@ -1723,7 +1723,7 @@ DEFVAR_LISP ("ccl-translation-table-vector", &Vccl_translation_table_vector, "Where is stored translation tables for CCL program.\n\ Because CCL program can't access these tables except by the index of the vector."); - Vccl_translation_table_vector = Fmake_vector (XFASTINT (16), Qnil); + Vccl_translation_table_vector = Fmake_vector (make_number (16), Qnil); DEFVAR_LISP ("font-ccl-encoder-alist", &Vfont_ccl_encoder_alist, "Alist of fontname patterns vs corresponding CCL program.\n\