From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 12 Jul 1997 06:46:21 +0000 (+0000)
Subject: (Fregister_ccl_program): Convert Fmake_vector argument to Lisp_Integer.
X-Git-Tag: emacs-20.1~1197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6703ac4f59e2efcc2a05a721dc25839ca313dd15;p=emacs.git

(Fregister_ccl_program): Convert Fmake_vector argument to Lisp_Integer.
(syms_of_ccl): Likewise.
---

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\