Commit 16fdc568 authored by Brian Fox's avatar Brian Fox

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

(Fmatch_beginning): Fix doc string to match argument name.
parent 32085e8e
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment