(syms_of_keyboard): Staticpro pending_funcalls.

2 files changed, 6 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 7f29736d394..b8e23d74d41 100644
--- 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 4a19457d49f..c47bf86fe2b 100644
--- 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);