From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 6 May 2009 01:30:13 +0000 (+0000)
Subject: (syms_of_keyboard): Staticpro pending_funcalls.
X-Git-Tag: emacs-pretest-23.0.94~112
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=864660a2ca320808be5d03cd67e3a170aeef5922;p=emacs.git

(syms_of_keyboard): Staticpro pending_funcalls.
---

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