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));