mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 22:40:51 -08:00
Code Issues Projects Releases Wiki Activity

(Fset_match_data): Be sure to make search_regs always sane.

Browse source
This commit is contained in:
Kenichi Handa 2000-10-30 04:10:22 +00:00
parent 8040607089
commit e62371e929
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/search.c
View file

@ -2746,6 +2746,9 @@ LIST should have been created by calling `match-data' previously.")
length * sizeof (regoff_t));
}
for (i = search_regs.num_regs; i < length; i++)
search_regs.start[i] = -1;
search_regs.num_regs = length;
}
}
@ -2760,6 +2763,8 @@ LIST should have been created by calling `match-data' previously.")
}
else
{
int from;
if (MARKERP (marker))
{
if (XMARKER (marker)->buffer == 0)
@ -2769,7 +2774,7 @@ LIST should have been created by calling `match-data' previously.")
}
CHECK_NUMBER_COERCE_MARKER (marker, 0);
search_regs.start[i] = XINT (marker);
from = XINT (marker);
list = Fcdr (list);
marker = Fcar (list);
@ -2777,6 +2782,7 @@ LIST should have been created by calling `match-data' previously.")
XSETFASTINT (marker, 0);
CHECK_NUMBER_COERCE_MARKER (marker, 0);
search_regs.start[i] = from;
search_regs.end[i] = XINT (marker);
}
list = Fcdr (list);