diff options
| -rw-r--r-- | src/search.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/search.c b/src/search.c index 9211169dbe0..8a821837528 100644 --- 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; |