[Emacs-diffs] Changes to emacs/src/fns.c

[Stefan Monnier]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.372 emacs/src/fns.c:1.373
*** emacs/src/fns.c:1.372       Tue Jul  6 19:36:56 2004
--- emacs/src/fns.c     Wed Oct 13 18:40:03 2004
***************
*** 2705,2710 ****
--- 2705,2713 ----
       int depth;
  {
    int i, to;
+   struct gcpro gcpro1, gcpro2,  gcpro3, gcpro4;
+ 
+   GCPRO4 (arg, table, subtable, function);
  
    if (depth == 0)
      {
***************
*** 2724,2730 ****
  #if 0 /* If the char table has entries for higher characters,
         we should report them.  */
        if (NILP (current_buffer->enable_multibyte_characters))
!       return;
  #endif
        to = CHAR_TABLE_ORDINARY_SLOTS;
      }
--- 2727,2736 ----
  #if 0 /* If the char table has entries for higher characters,
         we should report them.  */
        if (NILP (current_buffer->enable_multibyte_characters))
!       {
!         UNGCPRO;
!         return;
!       }
  #endif
        to = CHAR_TABLE_ORDINARY_SLOTS;
      }
***************
*** 2777,2782 ****
--- 2783,2789 ----
            call2 (function, make_number (c), elt);
        }
      }
+   UNGCPRO;
  }
  
  static void void_call2 P_ ((Lisp_Object a, Lisp_Object b, Lisp_Object c));