Parent Directory | Revision Log | Patch
revision 1.1.4.6 by miles, Mon Apr 19 07:09:26 2004 UTC | revision 1.1.4.7 by schwab, Wed Nov 24 00:44:49 2004 UTC | |
---|---|---|
# | Line 772 map_char_table (c_function, function, ta | Line 772 map_char_table (c_function, function, ta |
772 | { | { |
773 | Lisp_Object range, val; | Lisp_Object range, val; |
774 | int c, i; | int c, i; |
775 | struct gcpro gcpro1; | struct gcpro gcpro1, gcpro2, gcpro3; |
776 | ||
777 | range = Fcons (make_number (0), Qnil); | range = Fcons (make_number (0), Qnil); |
778 | GCPRO1 (range); | GCPRO3 (table, arg, range); |
779 | val = XCHAR_TABLE (table)->ascii; | val = XCHAR_TABLE (table)->ascii; |
780 | if (SUB_CHAR_TABLE_P (val)) | if (SUB_CHAR_TABLE_P (val)) |
781 | val = XSUB_CHAR_TABLE (val)->contents[0]; | val = XSUB_CHAR_TABLE (val)->contents[0]; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |