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

(Fmap_charset_chars): Fix handling of default value for FROM_CODE

Browse source 
and TO_CODE.
This commit is contained in:
Kenichi Handa 2002-07-22 12:28:14 +00:00
parent 95d6ca4046
commit 970b7474fd
1 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/charset.c
View file

@ -670,18 +670,23 @@ range of code points of targer characters. */)
CHECK_CHARSET_GET_CHARSET (charset, cs);
if (NILP (from_code))
from_code = make_number (0);
CHECK_NATNUM (from_code);
from = XINT (from_code);
if (from < CHARSET_MIN_CODE (cs))
from = CHARSET_MIN_CODE (cs);
else
{
CHECK_NATNUM (from_code);
from = XINT (from_code);
if (from < CHARSET_MIN_CODE (cs))
from = CHARSET_MIN_CODE (cs);
}
if (NILP (to_code))
to_code = make_number (0xFFFFFFFF);
CHECK_NATNUM (from_code);
to = XINT (to_code);
if (to > CHARSET_MAX_CODE (cs))
to_code = make_number (CHARSET_MAX_CODE (cs));
to = CHARSET_MAX_CODE (cs);
else
{
CHECK_NATNUM (to_code);
to = XINT (to_code);
if (to > CHARSET_MAX_CODE (cs))
to = CHARSET_MAX_CODE (cs);
}
map_charset_chars (NULL, function, arg, cs, from, to);
return Qnil;
}