773 |
{ |
{ |
774 |
Lisp_Object range, val; |
Lisp_Object range, val; |
775 |
int c, i; |
int c, i; |
776 |
|
struct gcpro gcpro1; |
777 |
|
|
778 |
range = Fcons (make_number (0), Qnil); |
range = Fcons (make_number (0), Qnil); |
779 |
|
GCPRO1 (range); |
780 |
val = XCHAR_TABLE (table)->ascii; |
val = XCHAR_TABLE (table)->ascii; |
781 |
if (SUB_CHAR_TABLE_P (val)) |
if (SUB_CHAR_TABLE_P (val)) |
782 |
val = XSUB_CHAR_TABLE (val)->contents[0]; |
val = XSUB_CHAR_TABLE (val)->contents[0]; |
820 |
else |
else |
821 |
call2 (function, range, val); |
call2 (function, range, val); |
822 |
} |
} |
823 |
|
|
824 |
|
UNGCPRO; |
825 |
} |
} |
826 |
|
|
827 |
DEFUN ("map-char-table", Fmap_char_table, Smap_char_table, |
DEFUN ("map-char-table", Fmap_char_table, Smap_char_table, |
917 |
{ |
{ |
918 |
Lisp_Object range; |
Lisp_Object range; |
919 |
int c, i; |
int c, i; |
920 |
|
struct gcpro gcpro1; |
921 |
|
|
922 |
range = Fcons (Qnil, Qnil); |
range = Fcons (Qnil, Qnil); |
923 |
|
GCPRO1 (range); |
924 |
|
|
925 |
for (i = 0, c = 0; i < chartab_size[0]; i++, c += chartab_chars[0]) |
for (i = 0, c = 0; i < chartab_size[0]; i++, c += chartab_chars[0]) |
926 |
{ |
{ |
951 |
else |
else |
952 |
call2 (function, range, arg); |
call2 (function, range, arg); |
953 |
} |
} |
954 |
|
|
955 |
|
UNGCPRO; |
956 |
} |
} |
957 |
|
|
958 |
|
|