[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/chartab.c [emacs-unicode-2]
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] Changes to emacs/src/chartab.c [emacs-unicode-2] |
Date: |
Wed, 10 Sep 2003 06:52:46 -0400 |
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;
}