(Fcase_table_p): Harmonize arguments with documentation.

diff --git a/src/casetab.c b/src/casetab.c
index 70545df5647a05ad170cfbe5a4c26aceec719dc9..ab3cac1de97ec6b4ec86de1c4939f8673d44875d 100644 (file)
--- a/src/casetab.c
+++ b/src/casetab.c
@@ -30,21 +30,21 @@ Lisp_Object Vascii_canon_table, Vascii_eqv_table;
 static void compute_trt_inverse ();
 
 DEFUN ("case-table-p", Fcase_table_p, Scase_table_p, 1, 1, 0,
-  "Return t iff ARG is a case table.\n\
+  "Return t iff OBJECT is a case table.\n\
 See `set-case-table' for more information on these data structures.")
-  (table)
-     Lisp_Object table;
+  (object)
+     Lisp_Object object;
 {
   Lisp_Object up, canon, eqv;
 
-  if (! CHAR_TABLE_P (table))
+  if (! CHAR_TABLE_P (object))
     return Qnil;
-  if (! EQ (XCHAR_TABLE (table)->purpose, Qcase_table))
+  if (! EQ (XCHAR_TABLE (object)->purpose, Qcase_table))
     return Qnil;
 
-  up = XCHAR_TABLE (table)->extras[0];
-  canon = XCHAR_TABLE (table)->extras[1];
-  eqv = XCHAR_TABLE (table)->extras[2];
+  up = XCHAR_TABLE (object)->extras[0];
+  canon = XCHAR_TABLE (object)->extras[1];
+  eqv = XCHAR_TABLE (object)->extras[2];
 
   return ((NILP (up) || CHAR_TABLE_P (up))
          && ((NILP (canon) && NILP (eqv))