From 2858a1c15c776e4314fb9707adbf953c16ad1919 Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Tue, 9 Jan 1996 00:30:49 +0000 Subject: [PATCH] (Fcase_table_p): Harmonize arguments with documentation. --- src/casetab.c | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/casetab.c b/src/casetab.c index 70545df564..ab3cac1de9 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)) -- 2.20.1