From 2203e1e8b799f0dc3f6c11d4e66979f098a68edc Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Tue, 9 Jan 1996 00:33:54 +0000 Subject: [PATCH] (Fsyntax_table_p, Fchar_syntax, Fmatching_paren, Fmodify_syntax_entry): Harmonize arguments with documentation. --- src/syntax.c | 45 +++++++++++++++++++++++---------------------- 1 file changed, 23 insertions(+), 22 deletions(-) diff --git a/src/syntax.c b/src/syntax.c index 6a75c16ac48..59571caf1c4 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -111,13 +111,13 @@ find_defun_start (pos) } DEFUN ("syntax-table-p", Fsyntax_table_p, Ssyntax_table_p, 1, 1, 0, - "Return t if ARG is a syntax table.\n\ + "Return t if OBJECT is a syntax table.\n\ Currently, any char-table counts as a syntax table.") - (obj) - Lisp_Object obj; + (object) + Lisp_Object object; { - if (CHAR_TABLE_P (obj) - && XCHAR_TABLE (obj)->purpose == Qsyntax_table) + if (CHAR_TABLE_P (object) + && XCHAR_TABLE (object)->purpose == Qsyntax_table) return Qt; return Qnil; } @@ -237,27 +237,28 @@ syntax_parent_lookup (table, character) } DEFUN ("char-syntax", Fchar_syntax, Schar_syntax, 1, 1, 0, - "Return the syntax code of CHAR, described by a character.\n\ -For example, if CHAR is a word constituent, the character `?w' is returned.\n\ + "Return the syntax code of CHARACTER, described by a character.\n\ +For example, if CHARACTER is a word constituent,\n\ +the character `w' is returned.\n\ The characters that correspond to various syntax codes\n\ are listed in the documentation of `modify-syntax-entry'.") - (ch) - Lisp_Object ch; + (character) + Lisp_Object character; { int char_int; - CHECK_NUMBER (ch, 0); - char_int = XINT (ch); + CHECK_NUMBER (character, 0); + char_int = XINT (character); return make_number (syntax_code_spec[(int) SYNTAX (char_int)]); } DEFUN ("matching-paren", Fmatching_paren, Smatching_paren, 1, 1, 0, - "Return the matching parenthesis of CHAR, or nil if none.") - (ch) - Lisp_Object ch; + "Return the matching parenthesis of CHARACTER, or nil if none.") + (character) + Lisp_Object character; { int char_int, code; - CHECK_NUMBER (ch, 0); - char_int = XINT (ch); + CHECK_NUMBER (character, 0); + char_int = XINT (character); code = SYNTAX (char_int); if (code == Sopen || code == Sclose) return make_number (SYNTAX_MATCH (char_int)); @@ -287,19 +288,19 @@ The second character of S is the matching parenthesis,\n\ used only if the first character is `(' or `)'.\n\ Any additional characters are flags.\n\ Defined flags are the characters 1, 2, 3, 4, b, and p.\n\ - 1 means C is the start of a two-char comment start sequence.\n\ - 2 means C is the second character of such a sequence.\n\ - 3 means C is the start of a two-char comment end sequence.\n\ - 4 means C is the second character of such a sequence.\n\ + 1 means CHAR is the start of a two-char comment start sequence.\n\ + 2 means CHAR is the second character of such a sequence.\n\ + 3 means CHAR is the start of a two-char comment end sequence.\n\ + 4 means CHAR is the second character of such a sequence.\n\ \n\ There can be up to two orthogonal comment sequences. This is to support\n\ language modes such as C++. By default, all comment sequences are of style\n\ a, but you can set the comment sequence style to b (on the second character\n\ of a comment-start, or the first character of a comment-end sequence) using\n\ this flag:\n\ - b means C is part of comment sequence b.\n\ + b means CHAR is part of comment sequence b.\n\ \n\ - p means C is a prefix character for `backward-prefix-chars';\n\ + p means CHAR is a prefix character for `backward-prefix-chars';\n\ such characters are treated as whitespace when they occur\n\ between expressions.") (char, s, table) -- 2.39.2