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

(map_sub_char_table): If the range contains just one

Browse source 
character, call the function with that character even if the depth
is not 3.
(map_char_table): Likewise.
This commit is contained in:
Kenichi Handa 2007-09-20 07:49:52 +00:00
parent 3e91c575a8
commit 0a4bacdc2b
1 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/chartab.c
View file

@ -805,8 +805,7 @@ map_sub_char_table (c_function, function, table, arg, val, range,
if (! NILP (val) && different_value)
{
XSETCDR (range, make_number (c - 1));
if (depth == 3
&& EQ (XCAR (range), XCDR (range)))
if (EQ (XCAR (range), XCDR (range)))
{
if (c_function)
(*c_function) (arg, XCAR (range), val);
@ -875,10 +874,20 @@ map_char_table (c_function, function, table, arg)
if (! NILP (val))
{
if (c_function)
(*c_function) (arg, range, val);
if (EQ (XCAR (range), XCDR (range)))
{
if (c_function)
(*c_function) (arg, XCAR (range), val);
else
call2 (function, XCAR (range), val);
}
else
call2 (function, range, val);
{
if (c_function)
(*c_function) (arg, range, val);
else
call2 (function, range, val);
}
}
UNGCPRO;