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 | 2858a1c15c776e4314fb9707adbf953c16ad1919 (patch) | |
| tree | d65c2a9e30aad6472d2d5d2c3987c9a214d344af /src/casetab.c | |
| parent | 8c22d56c58f4839710362e63d59606a310ef7940 (diff) | |
| download | emacs-2858a1c15c776e4314fb9707adbf953c16ad1919.tar.gz | |
(Fcase_table_p): Harmonize arguments with documentation.
Diffstat (limited to 'src/casetab.c')
| -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)) |