[Emacs-diffs] Changes to emacs/src/chartab.c [emacs-unicode-2]

[Andreas Schwab]

Index: emacs/src/chartab.c
diff -c emacs/src/chartab.c:1.1.4.1 emacs/src/chartab.c:1.1.4.2
*** emacs/src/chartab.c:1.1.4.1 Mon Sep  8 08:48:10 2003
--- emacs/src/chartab.c Wed Sep 10 06:52:45 2003
***************
*** 773,780 ****
--- 773,782 ----
  {
    Lisp_Object range, val;
    int c, i;
+   struct gcpro gcpro1;
  
    range = Fcons (make_number (0), Qnil);
+   GCPRO1 (range);
    val = XCHAR_TABLE (table)->ascii;
    if (SUB_CHAR_TABLE_P (val))
      val = XSUB_CHAR_TABLE (val)->contents[0];
***************
*** 818,823 ****
--- 820,827 ----
        else
        call2 (function, range, val);
      }
+ 
+   UNGCPRO;
  }
  
  DEFUN ("map-char-table", Fmap_char_table, Smap_char_table,
***************
*** 913,920 ****
--- 917,926 ----
  {
    Lisp_Object range;
    int c, i;
+   struct gcpro gcpro1;
  
    range = Fcons (Qnil, Qnil);
+   GCPRO1 (range);
  
    for (i = 0, c = 0; i < chartab_size[0]; i++, c += chartab_chars[0])
      {
***************
*** 945,950 ****
--- 951,958 ----
        else
        call2 (function, range, arg);
      }
+ 
+   UNGCPRO;
  }