Mercurial > emacs
changeset 14064:d090a0a25ac8
(Fcase_table_p): Harmonize arguments with documentation.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Tue, 09 Jan 1996 00:30:49 +0000 |
| parents | ef7d4117c601 |
| children | 60600bcfe5f1 |
| files | src/casetab.c |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/casetab.c Tue Jan 09 00:30:45 1996 +0000 +++ b/src/casetab.c Tue Jan 09 00:30:49 1996 +0000 @@ -30,21 +30,21 @@ 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))