From: Kenichi Handa <handa@m17n.org>
Date: Wed, 20 Apr 2005 07:50:08 +0000 (+0000)
Subject: (make_sub_char_table): Argument changed to initial
X-Git-Tag: ttn-vms-21-2-B4~876
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a7a8e99f219091c36b205445d664d933c151142;p=emacs.git

(make_sub_char_table): Argument changed to initial
value of the slots.
---

diff --git a/src/alloc.c b/src/alloc.c
index f3af3940e15..fb352bd56d8 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3014,18 +3014,18 @@ The property's value should be an integer between 0 and 10.  */)
 }
 
 
-/* Return a newly created sub char table with default value DEFALT.
+/* Return a newly created sub char table with slots initialized by INIT.
    Since a sub char table does not appear as a top level Emacs Lisp
    object, we don't need a Lisp interface to make it.  */
 
 Lisp_Object
-make_sub_char_table (defalt)
-     Lisp_Object defalt;
+make_sub_char_table (init)
+     Lisp_Object init;
 {
   Lisp_Object vector
-    = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), Qnil);
+    = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), init);
   XCHAR_TABLE (vector)->top = Qnil;
-  XCHAR_TABLE (vector)->defalt = defalt;
+  XCHAR_TABLE (vector)->defalt = Qnil;
   XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
   return vector;
 }