(get_keyelt): Temporarily inhibit GC while evaluating

a menu filter.

diff --git a/src/ChangeLog b/src/ChangeLog
index 82730f0672147cf78015750d7cf2000ea6b3a609..f3f521aa47ca5895364416d6cf33918a827e376e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-04  Gerd Moellmann  <gerd@gnu.org>
+
+       * keymap.c (get_keyelt): Temporarily inhibit GC while evaluating
+       a menu filter.
+
 2000-07-04  Kenichi Handa  <handa@etl.go.jp>
 
        * composite.h (make_composition_value_copy): Extern it.

diff --git a/src/keymap.c b/src/keymap.c
index 11d8ab860a545fa0608737c49bfe87f074560523..414de7b14a3c4ac89e0bcc305e572245db571ff1 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -592,14 +592,18 @@ get_keyelt (object, autoload)
 
              /* If there's a `:filter FILTER', apply FILTER to the
                 menu-item's definition to get the real definition to
-                use.  */
+                use.  Temporarily inhibit GC while evaluating FILTER,
+                because not functions calling get_keyelt are prepared
+                for a GC.  */
              for (; CONSP (tem) && CONSP (XCDR (tem)); tem = XCDR (tem))
                if (EQ (XCAR (tem), QCfilter))
                  {
+                   int count = inhibit_garbage_collection ();
                    Lisp_Object filter;
                    filter = XCAR (XCDR (tem));
                    filter = list2 (filter, list2 (Qquote, object));
                    object = menu_item_eval_property (filter);
+                   unbind_to (count, Qnil);
                    break;
                  }
            }