From 6703ac4f59e2efcc2a05a721dc25839ca313dd15 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Jul 1997 06:46:21 +0000 Subject: [PATCH] (Fregister_ccl_program): Convert Fmake_vector argument to Lisp_Integer. (syms_of_ccl): Likewise. --- src/ccl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/ccl.c b/src/ccl.c index 1d34418895e..ea6c7952220 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -1105,7 +1105,7 @@ Return index number of the registered CCL program.") if (i == len) { - Lisp_Object new_table = Fmake_vector (len * 2, Qnil); + Lisp_Object new_table = Fmake_vector (make_number (len * 2), Qnil); int j; for (j = 0; j < len; j++) @@ -1121,7 +1121,7 @@ Return index number of the registered CCL program.") syms_of_ccl () { staticpro (&Vccl_program_table); - Vccl_program_table = Fmake_vector (32, Qnil); + Vccl_program_table = Fmake_vector (make_number (32), Qnil); DEFVAR_LISP ("font-ccl-encoder-alist", &Vfont_ccl_encoder_alist, "Alist of fontname patterns vs corresponding CCL program.\n\ -- 2.11.4.GIT