mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(map_char_table): Add missing gcpros.

Browse Source
This commit is contained in:
Stefan Monnier 2004-10-13 18:40:03 +00:00
parent 9238467da9
commit 91244343b5
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/fns.c
View File

@ -2705,6 +2705,9 @@ map_char_table (c_function, function, table, subtable, arg, depth, indices)
int depth; int depth;
{ {
int i, to; int i, to;
struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
GCPRO4 (arg, table, subtable, function);
if (depth == 0) if (depth == 0)
{ {
@ -2724,7 +2727,10 @@ map_char_table (c_function, function, table, subtable, arg, depth, indices)
#if 0 /* If the char table has entries for higher characters, #if 0 /* If the char table has entries for higher characters,
we should report them. */ we should report them. */
if (NILP (current_buffer->enable_multibyte_characters)) if (NILP (current_buffer->enable_multibyte_characters))
return; {
UNGCPRO;
return;
}
#endif #endif
to = CHAR_TABLE_ORDINARY_SLOTS; to = CHAR_TABLE_ORDINARY_SLOTS;
} }
@ -2777,6 +2783,7 @@ map_char_table (c_function, function, table, subtable, arg, depth, indices)
call2 (function, make_number (c), elt); call2 (function, make_number (c), elt);
} }
} }
UNGCPRO;
} }
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));