From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 14 Oct 2002 01:30:53 +0000 (+0000)
Subject: (window_scroll): Set immediate_quit.
X-Git-Tag: ttn-vms-21-2-B4~12845
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cba59f778608e94182d6d652c8a6bc4ced86739c;p=emacs.git

(window_scroll): Set immediate_quit.
---

diff --git a/src/window.c b/src/window.c
index e7b1ba45373..d69db508746 100644
--- a/src/window.c
+++ b/src/window.c
@@ -4027,12 +4027,16 @@ window_scroll (window, n, whole, noerror)
      int whole;
      int noerror;
 {
+  immediate_quit = 1;
+
   /* If we must, use the pixel-based version which is much slower than
      the line-based one but can handle varying line heights.  */
   if (FRAME_WINDOW_P (XFRAME (XWINDOW (window)->frame)))
     window_scroll_pixel_based (window, n, whole, noerror);
   else
     window_scroll_line_based (window, n, whole, noerror);
+
+  immediate_quit = 0;
 }