From 5806161b4fe0040cd2f948d2bb4621be8c535ca2 Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Tue, 9 Jan 1996 00:33:47 +0000 Subject: [PATCH] (Fmatch_end, Fregexp_quote): Harmonize arguments with documentation. --- src/search.c | 36 ++++++++++++++++++++---------------- 1 file changed, 20 insertions(+), 16 deletions(-) diff --git a/src/search.c b/src/search.c index 81d2be58e9e..e77528311d4 100644 --- a/src/search.c +++ b/src/search.c @@ -1802,24 +1802,28 @@ 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\ -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\ +SUBEXP, a number, specifies which parenthesized expression in the last\n\ + regexp.\n\ +Value is nil if SUBEXPth pair didn't match, or there were less than\n\ + SUBEXP pairs.\n\ Zero means the entire text matched by the whole regexp or whole string.") - (num) - Lisp_Object num; + (subexp) + Lisp_Object subexp; { - return match_limit (num, 1); + return match_limit (subexp, 1); } DEFUN ("match-end", Fmatch_end, Smatch_end, 1, 1, 0, "Return position of end 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\ +SUBEXP, a number, specifies which parenthesized expression in the last\n\ + regexp.\n\ +Value is nil if SUBEXPth pair didn't match, or there were less than\n\ + SUBEXP pairs.\n\ Zero means the entire text matched by the whole regexp or whole string.") - (num) - Lisp_Object num; + (subexp) + Lisp_Object subexp; { - return match_limit (num, 0); + return match_limit (subexp, 0); } DEFUN ("match-data", Fmatch_data, Smatch_data, 0, 0, 0, @@ -2001,20 +2005,20 @@ restore_match_data () DEFUN ("regexp-quote", Fregexp_quote, Sregexp_quote, 1, 1, 0, "Return a regexp string which matches exactly STRING and nothing else.") - (str) - Lisp_Object str; + (string) + Lisp_Object string; { register unsigned char *in, *out, *end; register unsigned char *temp; - CHECK_STRING (str, 0); + CHECK_STRING (string, 0); - temp = (unsigned char *) alloca (XSTRING (str)->size * 2); + temp = (unsigned char *) alloca (XSTRING (string)->size * 2); /* Now copy the data into the new string, inserting escapes. */ - in = XSTRING (str)->data; - end = in + XSTRING (str)->size; + in = XSTRING (string)->data; + end = in + XSTRING (string)->size; out = temp; for (; in != end; in++) -- 2.39.2