mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(Fregister_ccl_program): Convert Fmake_vector argument to Lisp_Integer.

Browse source 
(syms_of_ccl): Likewise.
This commit is contained in:
Richard M. Stallman 1997-07-12 06:46:21 +00:00
parent cac557491c
commit 6703ac4f59
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ccl.c
View file

@ -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\