Commit 2858a1c1 authored by Erik Naggum's avatar Erik Naggum
Browse files

(Fcase_table_p): Harmonize arguments with documentation.

parent 8c22d56c
......@@ -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.")
Lisp_Object table;
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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment