Mercurial > emacs
changeset 57482:72eb85758337
(map_char_table): Add missing gcpros.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 13 Oct 2004 18:40:03 +0000 |
| parents | 991294eeb9d6 |
| children | 12ad045f7911 |
| files | src/fns.c |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fns.c Wed Oct 13 17:07:58 2004 +0000 +++ b/src/fns.c Wed Oct 13 18:40:03 2004 +0000 @@ -2705,6 +2705,9 @@ int depth; { int i, to; + struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; + + GCPRO4 (arg, table, subtable, function); if (depth == 0) { @@ -2724,7 +2727,10 @@ #if 0 /* If the char table has entries for higher characters, we should report them. */ if (NILP (current_buffer->enable_multibyte_characters)) - return; + { + UNGCPRO; + return; + } #endif to = CHAR_TABLE_ORDINARY_SLOTS; } @@ -2777,6 +2783,7 @@ call2 (function, make_number (c), elt); } } + UNGCPRO; } static void void_call2 P_ ((Lisp_Object a, Lisp_Object b, Lisp_Object c));