/[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.1 by handa, Mon Sep 8 12:48:10 2003 UTC revision 1.1.4.2 by schwab, Wed Sep 10 10:52:45 2003 UTC
# Line 773  map_char_table (c_function, function, ta Line 773  map_char_table (c_function, function, ta
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];
# Line 818  map_char_table (c_function, function, ta Line 820  map_char_table (c_function, function, ta
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,
# Line 913  map_char_table_for_charset (c_function, Line 917  map_char_table_for_charset (c_function,
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      {      {
# Line 945  map_char_table_for_charset (c_function, Line 951  map_char_table_for_charset (c_function,
951        else        else
952          call2 (function, range, arg);          call2 (function, range, arg);
953      }      }
954    
955      UNGCPRO;
956  }  }
957    
958    

Legend:
Removed from v.1.1.4.1  
changed lines
  Added in v.1.1.4.2

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