* keyboard.c (timer_check): Avoid quitting during Fcopy_sequence.

diff --git a/src/ChangeLog b/src/ChangeLog
index 676f4127ba5aaeb1de11235035a07d6775684489..b60027880fed0fdaf52c57c536176a5dc8fc4cf2 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-23  Chong Yidong  <cyd@gnu.org>
+
+       * keyboard.c (timer_check): Avoid quitting during Fcopy_sequence.
+
 2012-09-22  Paul Eggert  <eggert@cs.ucla.edu>
 
        * .gdbinit: Just stop at fatal_error_backtrace.

diff --git a/src/keyboard.c b/src/keyboard.c
index 8b1113a026af7f444a3547545f0088e43fc6d4dd..c5a741abc104a3a2559a7e9836cdf11d324387b7 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4496,6 +4496,9 @@ timer_check (void)
   Lisp_Object timers, idle_timers;
   struct gcpro gcpro1, gcpro2;
 
+  Lisp_Object tem = Vinhibit_quit;
+  Vinhibit_quit = Qt;
+
   /* We use copies of the timers' lists to allow a timer to add itself
      again, without locking up Emacs if the newly added timer is
      already ripe when added.  */
@@ -4508,6 +4511,8 @@ timer_check (void)
   else
     idle_timers = Qnil;
 
+  Vinhibit_quit = tem;
+
   GCPRO2 (timers, idle_timers);
 
   do