changeset 14087:1709d9f11c66

(Fsyntax_table_p, Fchar_syntax, Fmatching_paren, Fmodify_syntax_entry): Harmonize arguments with documentation.

--- a/src/syntax.c	Tue Jan 09 00:33:47 1996 +0000
+++ b/src/syntax.c	Tue Jan 09 00:33:54 1996 +0000
@@ -111,13 +111,13 @@
 }
 
 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 @@
 }
 
 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 @@
  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)