(Freplace_match): Fix argument names to match doc string.

(Fmatch_beginning): Fix doc string to match argument name.

diff --git a/src/search.c b/src/search.c
index 9211169dbe0afdef3c6fc6d3be65b1cf75f76ecb..8a82183752804ec72e1c872bc9a33fbb01f0b87e 100644 (file)
--- a/src/search.c
+++ b/src/search.c
@@ -1162,8 +1162,8 @@ Otherwise treat `\\' as special:\n\
   `\\\\' means insert one `\\'.\n\
 FIXEDCASE and LITERAL are optional arguments.\n\
 Leaves point at end of replacement text.")
-  (string, fixedcase, literal)
-     Lisp_Object string, fixedcase, literal;
+  (newtext, fixedcase, literal)
+     Lisp_Object newtext, fixedcase, literal;
 {
   enum { nochange, all_caps, cap_initial } case_action;
   register int pos, last;
@@ -1173,7 +1173,7 @@ Leaves point at end of replacement text.")
   register int c, prevc;
   int inslen;
 
-  CHECK_STRING (string, 0);
+  CHECK_STRING (newtext, 0);
 
   case_action = nochange;      /* We tried an initialization */
                                /* but some C compilers blew it */
@@ -1242,20 +1242,20 @@ Leaves point at end of replacement text.")
      position in the replacement.  */
   SET_PT (search_regs.start[0]);
   if (!NILP (literal))
-    Finsert_and_inherit (1, &string);
+    Finsert_and_inherit (1, &newtext);
   else
     {
       struct gcpro gcpro1;
-      GCPRO1 (string);
+      GCPRO1 (newtext);
 
-      for (pos = 0; pos < XSTRING (string)->size; pos++)
+      for (pos = 0; pos < XSTRING (newtext)->size; pos++)
        {
          int offset = point - search_regs.start[0];
 
-         c = XSTRING (string)->data[pos];
+         c = XSTRING (newtext)->data[pos];
          if (c == '\\')
            {
-             c = XSTRING (string)->data[++pos];
+             c = XSTRING (newtext)->data[++pos];
              if (c == '&')
                Finsert_buffer_substring
                  (Fcurrent_buffer (),
@@ -1308,8 +1308,8 @@ match_limit (num, beginningp)
 
 DEFUN ("match-beginning", Fmatch_beginning, Smatch_beginning, 1, 1, 0,
   "Return position of start of text matched by last search.\n\
-ARG, a number, specifies which parenthesized expression in the last regexp.\n\
- Value is nil if ARGth pair didn't match, or there were less than ARG pairs.\n\
+NUM specifies which parenthesized expression in the last regexp.\n\
+ Value is nil if NUMth pair didn't match, or there were less than NUM pairs.\n\
 Zero means the entire text matched by the whole regexp or whole string.")
   (num)
      Lisp_Object num;