(substitute-key-definition): Fix previous change.

[gnu-emacs] / src / category.c

diff --git a/src/category.c b/src/category.c
index b644448b486b35e136c01a008c9cb000ab4f816c..18dd0df47c4b2ba21fe9d1a83949aa3836397fd6 100644 (file)
--- a/src/category.c
+++ b/src/category.c
@@ -427,7 +427,7 @@ If optional forth argument RESET is non NIL,\n\
   /* The third (bottom) level table.  */
   if (!SUB_CHAR_TABLE_P (val))
     {
-      val = make_sub_char_table (Qnil, Qnil);
+      val = make_sub_char_table (Qnil);
       XCHAR_TABLE (table)->contents[c1] = val;
       /* We must set default category set of CHARSET and C1 in
          `defalt' slot.  */
@@ -486,7 +486,8 @@ describe_category_1 (vector)
 {
   struct buffer *old = current_buffer;
   set_buffer_internal (XBUFFER (Vstandard_output));
-  describe_vector (vector, Qnil, describe_category, 0, Qnil, Qnil);
+  describe_vector (vector, Qnil, describe_category, 0, Qnil, Qnil,
+                  (int *)0, 0);
   {
     int i;
     Lisp_Object docs = XCHAR_TABLE (vector)->extras[0];
@@ -516,7 +517,8 @@ describe_category_1 (vector)
     {
       vector = XCHAR_TABLE (vector)->parent;
       insert_string ("\nThe parent category table is:");
-      describe_vector (vector, Qnil, describe_category, 0, Qnil, Qnil);
+      describe_vector (vector, Qnil, describe_category, 0, Qnil, Qnil,
+                      (int *) 0, 0);
     }
 
   call0 (intern ("help-mode"));