comparison src/chartab.c @ 89484:5c41371d228b

(map_char_table): Protect `range' from GC. (map_char_table_for_charset): Likewise.

89483:2f877ed80fa6

     void (*c_function) P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
     Lisp_Object function, table, arg;
{
  Lisp_Object range, val;
  int c, i;

  range = Fcons (make_number (0), Qnil);
  val = XCHAR_TABLE (table)->ascii;
  if (SUB_CHAR_TABLE_P (val))
    val = XSUB_CHAR_TABLE (val)->contents[0];

  for (i = 0, c = 0; i < chartab_size[0]; i++, c += chartab_chars[0])

      if (c_function)
	(*c_function) (arg, range, val);
      else
	call2 (function, range, val);
    }
}

DEFUN ("map-char-table", Fmap_char_table, Smap_char_table,
  2, 2, 0,
       doc: /*

     struct charset *charset;
     unsigned from, to;
{
  Lisp_Object range;
  int c, i;

  range = Fcons (Qnil, Qnil);

  for (i = 0, c = 0; i < chartab_size[0]; i++, c += chartab_chars[0])
    {
      Lisp_Object this;

      if (c_function)
	(*c_function) (arg, range);
      else
	call2 (function, range, arg);
    }
}


void
syms_of_chartab ()

89484:5c41371d228b

     void (*c_function) P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
     Lisp_Object function, table, arg;
{
  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];

  for (i = 0, c = 0; i < chartab_size[0]; i++, c += chartab_chars[0])

      if (c_function)
	(*c_function) (arg, range, val);
      else
	call2 (function, range, val);
    }

  UNGCPRO;
}

DEFUN ("map-char-table", Fmap_char_table, Smap_char_table,
  2, 2, 0,
       doc: /*

     struct charset *charset;
     unsigned from, to;
{
  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])
    {
      Lisp_Object this;

      if (c_function)
	(*c_function) (arg, range);
      else
	call2 (function, range, arg);
    }

  UNGCPRO;
}


void
syms_of_chartab ()