mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 04:10:27 -08:00
Code Issues Projects Releases Wiki Activity

(match_limit, Fmatch_data, Fset_match_data): YAILOM.

Browse source
This commit is contained in:
Stefan Monnier 2004-06-30 19:34:34 +00:00
parent 85b0dba0fb
commit bd2cbd5656
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/search.c
View file

@ -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 @@ match_limit (num, beginningp)
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 @@ Return value is undefined if the last search failed. */)
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 @@ LIST should have been created by calling `match-data' previously. */)
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)