Mercurial > emacs
changeset 4882:8c09f87f5087
(Freplace_match): Fix argument names to match doc string.
(Fmatch_beginning): Fix doc string to match argument name.
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Mon, 25 Oct 1993 05:09:20 +0000 |
| parents | e53d4ae93675 |
| children | a806d71f58f6 |
| files | src/search.c |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- 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;