From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 13 Oct 2007 12:06:41 +0000 (+0000)
Subject: (Fregister_ccl_program, Fregister_code_conversion_map): Use larger_vector.
X-Git-Tag: emacs-pretest-23.0.90~10360
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d15320697ce2d39c0dc5daa44530a34859c29ac;p=emacs.git

(Fregister_ccl_program, Fregister_code_conversion_map): Use larger_vector.
---

diff --git a/src/ccl.c b/src/ccl.c
index 564fd4ba4fa..14298c84dd3 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -2348,16 +2348,8 @@ Return index number of the registered CCL program.  */)
     }
 
   if (idx == len)
-    {
-      /* Extend the table.  */
-      Lisp_Object new_table;
-      int j;
-
-      new_table = Fmake_vector (make_number (len * 2), Qnil);
-      for (j = 0; j < len; j++)
-	ASET (new_table, j, AREF (Vccl_program_table, j));
-      Vccl_program_table = new_table;
-    }
+    /* Extend the table.  */
+    Vccl_program_table = larger_vector (Vccl_program_table, len * 2, Qnil);
 
   {
     Lisp_Object elt;
@@ -2416,15 +2408,8 @@ Return index number of the registered map.  */)
     }
 
   if (i == len)
-    {
-      Lisp_Object new_vector = Fmake_vector (make_number (len * 2), Qnil);
-      int j;
-
-      for (j = 0; j < len; j++)
-	AREF (new_vector, j)
-	  = AREF (Vcode_conversion_map_vector, j);
-      Vcode_conversion_map_vector = new_vector;
-    }
+    Vcode_conversion_map_vector = larger_vector
+      (Vcode_conversion_map_vector, len * 2, Qnil);
 
   index = make_number (i);
   Fput (symbol, Qcode_conversion_map, map);