/[emacs]/emacs/src/chartab.c
ViewVC logotype

Diff of /emacs/src/chartab.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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];

Legend:
Removed from v.1.1.4.6  
changed lines
  Added in v.1.1.4.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26