# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 751525760 0
# Node ID 8c09f87f5087b020adcb12f1cd5ffcabb8c4acc5
# Parent  e53d4ae93675e49a872725e5ce9d7219a656d3f9
(Freplace_match): Fix argument names to match doc string.
(Fmatch_beginning): Fix doc string to match argument name.

diff -r e53d4ae93675 -r 8c09f87f5087 src/search.c
--- a/src/search.c	Mon Oct 25 04:54:54 1993 +0000
+++ b/src/search.c	Mon Oct 25 05:09:20 1993 +0000
@@ -1162,8 +1162,8 @@
   `\\\\' 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 @@
   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 @@
      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 @@
 
 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;