[Emacs-diffs] Changes to emacs/src/keyboard.c

[Richard M . Stallman]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.804 emacs/src/keyboard.c:1.805
*** emacs/src/keyboard.c:1.804  Wed Dec 15 21:40:39 2004
--- emacs/src/keyboard.c        Tue Dec 21 11:34:42 2004
***************
*** 3711,3723 ****
        ++kbd_store_ptr;
      }
  
!   /* If we're in a section that requested to be interrupted as soon
!      as input comes, then set quit-flag to cause an interrupt.  */
    if (!NILP (Vthrow_on_input)
        && event->kind != FOCUS_IN_EVENT
        && event->kind != HELP_EVENT
        && event->kind != DEICONIFY_EVENT)
!     Vquit_flag = Vthrow_on_input;
  }
  
  
--- 3711,3733 ----
        ++kbd_store_ptr;
      }
  
!   /* If we're inside while-no-input, and this event qualifies
!      as input, set quit-flag to cause an interrupt.  */
    if (!NILP (Vthrow_on_input)
        && event->kind != FOCUS_IN_EVENT
        && event->kind != HELP_EVENT
        && event->kind != DEICONIFY_EVENT)
!     {
!       Vquit_flag = Vthrow_on_input;
!       /* If we're inside a function that wants immediate quits,
!        do it now.  */
!       if (immediate_quit && NILP (Vinhibit_quit))
!       {
!         immediate_quit = 0;
!         sigfree ();
!         QUIT;
!       }
!     }
  }