(syms_of_keyboard): Staticpro pending_funcalls.

diff --git a/src/ChangeLog b/src/ChangeLog
index 7f29736d394427ea3b90fca16c0494a366e24181..b8e23d74d41334da227282d9df21f61cd098da01 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-05-06  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * keyboard.c (syms_of_keyboard): Staticpro pending_funcalls.
+
 2009-05-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * Makefile.in (ctagsfiles1, ctagsfiles2): Include ObjC files in TAGS.

diff --git a/src/keyboard.c b/src/keyboard.c
index 4a19457d49f9e2964608b79081d9b98ee94610a3..c47bf86fe2b79f9d0152b70c5b20724f4a300939 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4491,7 +4491,7 @@ struct input_event last_timer_event;
 
 /* List of elisp functions to call, delayed because they were generated in
    a context where Elisp could not be safely run (e.g. redisplay, signal,
-   ...).  Each lement has the form (FUN . ARGS).  */
+   ...).  Each element has the form (FUN . ARGS).  */
 Lisp_Object pending_funcalls;
 
 extern Lisp_Object Qapply;
@@ -11711,6 +11711,7 @@ void
 syms_of_keyboard ()
 {
   pending_funcalls = Qnil;
+  staticpro (&pending_funcalls);
 
   Vlispy_mouse_stem = build_string ("mouse");
   staticpro (&Vlispy_mouse_stem);