From: Erik Naggum <erik@naggum.no>
Date: Tue, 9 Jan 1996 00:30:49 +0000 (+0000)
Subject: (Fcase_table_p): Harmonize arguments with documentation.
X-Git-Tag: emacs-19.34~1796
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2858a1c15c776e4314fb9707adbf953c16ad1919;p=emacs.git

(Fcase_table_p): Harmonize arguments with documentation.
---

diff --git a/src/casetab.c b/src/casetab.c
index 70545df5647..ab3cac1de97 100644
--- 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))