# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868689981 0
# Node ID d961aeafcebac6325474348547b809a13b4f0e4b
# Parent  6897bd6a1c8db097898a3950332ba7170b5c4901
(Fregister_ccl_program): Convert Fmake_vector argument to Lisp_Integer.
(syms_of_ccl): Likewise.

diff -r 6897bd6a1c8d -r d961aeafceba src/ccl.c
--- a/src/ccl.c	Sat Jul 12 06:45:55 1997 +0000
+++ b/src/ccl.c	Sat Jul 12 06:46:21 1997 +0000
@@ -1105,7 +1105,7 @@
 
   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 @@
 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\