# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1192277261 0
# Node ID 8a6c1b0352a2348a3c238010adebbf888f802b67
# Parent  2869af9a0789a8ab0de125335a13457dfe16c3bd
(make_fontset): Use larger_vector.

diff -r 2869af9a0789 -r 8a6c1b0352a2 src/fontset.c
--- a/src/fontset.c	Sat Oct 13 12:06:41 2007 +0000
+++ b/src/fontset.c	Sat Oct 13 12:07:41 2007 +0000
@@ -391,15 +391,7 @@
   while (!NILP (AREF (Vfontset_table, id))) id++;
 
   if (id + 1 == size)
-    {
-      Lisp_Object tem;
-      int i;
-
-      tem = Fmake_vector (make_number (size + 8), Qnil);
-      for (i = 0; i < size; i++)
-	AREF (tem, i) = AREF (Vfontset_table, i);
-      Vfontset_table = tem;
-    }
+    Vfontset_table = larger_vector (Vfontset_table, size + 8, Qnil);
 
   fontset = Fmake_char_table (Qfontset, Qnil);