diff options
| author | Erik Naggum <erik@naggum.no> | 1996-01-09 00:30:49 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1996-01-09 00:30:49 +0000 |
| commit | 308efce33b94c72a3e2d742b93ca3fa22b473892 (patch) | |
| tree | 7436af2264032b0027ef3fe896b439575fc65283 | |
| parent | 725e25a79dc26c7d994ef9a28f7ef62f765855d1 (diff) | |
| download | emacs-308efce33b94c72a3e2d742b93ca3fa22b473892.tar.gz | |
(Fcase_table_p): Harmonize arguments with documentation.
| -rw-r--r-- | src/casetab.c | 16 |
1 files changed, 8 insertions, 8 deletions
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)) |