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

Diff of /emacs/src/fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.314.2.15 by miles, Sat Sep 4 09:20:09 2004 UTC revision 1.314.2.16 by miles, Mon Oct 25 04:19:35 2004 UTC
# Line 2705  map_char_table (c_function, function, ta Line 2705  map_char_table (c_function, function, ta
2705       int depth;       int depth;
2706  {  {
2707    int i, to;    int i, to;
2708      struct gcpro gcpro1, gcpro2,  gcpro3, gcpro4;
2709    
2710      GCPRO4 (arg, table, subtable, function);
2711    
2712    if (depth == 0)    if (depth == 0)
2713      {      {
# Line 2724  map_char_table (c_function, function, ta Line 2727  map_char_table (c_function, function, ta
2727  #if 0 /* If the char table has entries for higher characters,  #if 0 /* If the char table has entries for higher characters,
2728           we should report them.  */           we should report them.  */
2729        if (NILP (current_buffer->enable_multibyte_characters))        if (NILP (current_buffer->enable_multibyte_characters))
2730          return;          {
2731              UNGCPRO;
2732              return;
2733            }
2734  #endif  #endif
2735        to = CHAR_TABLE_ORDINARY_SLOTS;        to = CHAR_TABLE_ORDINARY_SLOTS;
2736      }      }
# Line 2777  map_char_table (c_function, function, ta Line 2783  map_char_table (c_function, function, ta
2783              call2 (function, make_number (c), elt);              call2 (function, make_number (c), elt);
2784          }          }
2785      }      }
2786      UNGCPRO;
2787  }  }
2788    
2789  static void void_call2 P_ ((Lisp_Object a, Lisp_Object b, Lisp_Object c));  static void void_call2 P_ ((Lisp_Object a, Lisp_Object b, Lisp_Object c));

Legend:
Removed from v.1.314.2.15  
changed lines
  Added in v.1.314.2.16

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