mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

(Ffind_composition_internal): Check POS

Browse source 
for validity.
This commit is contained in:
Gerd Moellmann 2001-06-18 10:41:42 +00:00
parent 855eca564c
commit e3b3e32714
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/composite.c
View file

@ -777,8 +777,18 @@ See `find-composition' for more detail.")
}
else
end = -1;
if (!NILP (string))
CHECK_STRING (string, 2);
{
CHECK_STRING (string, 2);
if (XINT (pos) < 0 || XINT (pos) >= XSTRING (string)->size)
args_out_of_range (string, pos);
}
else
{
if (XINT (pos) < BEGV || XINT (pos) >= ZV)
args_out_of_range (Fcurrent_buffer (), pos);
}
if (!find_composition (start, end, &start, &end, &prop, string))
return Qnil;