Mercurial > emacs
changeset 56294:aaa6a4ecea38
(match_limit, Fmatch_data, Fset_match_data): YAILOM.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 30 Jun 2004 19:34:34 +0000 |
| parents | f27d5d17fde5 |
| children | 9edd102571f9 |
| files | src/search.c |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/search.c Wed Jun 30 19:34:15 2004 +0000 +++ b/src/search.c Wed Jun 30 19:34:34 2004 +0000 @@ -1,5 +1,6 @@ /* String search routines for GNU Emacs. - Copyright (C) 1985, 86,87,93,94,97,98, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 86,87,93,94,97,98, 1999, 2004 + Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -2628,7 +2629,7 @@ CHECK_NUMBER (num); n = XINT (num); if (n < 0) - args_out_of_range (num, 0); + args_out_of_range (num, make_number (0)); if (search_regs.num_regs <= 0) error ("No match data, because no search succeeded"); if (n >= search_regs.num_regs @@ -2728,10 +2729,9 @@ data[2 * i] = data [2 * i + 1] = Qnil; } - if (BUFFERP(last_thing_searched) - && ! NILP (integers)) + if (BUFFERP (last_thing_searched) && !NILP (integers)) { - XSETBUFFER(data[len], last_thing_searched); + data[len] = last_thing_searched; len++; } @@ -2811,9 +2811,9 @@ for (i = 0;; i++) { marker = Fcar (list); - if (BUFFERP(marker)) + if (BUFFERP (marker)) { - XSETBUFFER(last_thing_searched, marker); + last_thing_searched = marker; break; } if (i >= length)