From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 7 Sep 2011 19:30:26 +0000 (-0700)
Subject: Put update-window inside ignore-change-region.
X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~112
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a4f2544ef160f3b1129e168a9e70c0833dca0dd8;p=mit-scheme.git

Put update-window inside ignore-change-region.

This helps update-modeline, which needs to know the current location
of buffer lines.
---

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 545fe9a38..481ebf428 100644
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -1316,14 +1316,12 @@ USA.
       (let ((drawing (text-widget-buffer-drawing widget)))
 	(if (not drawing) (error "No drawing:" widget))
 	(if (update-drawing screen drawing)
-	    (begin
-	      (update-window widget)
-	      ;; un-override?
+	    (fluid-let ((ignore-change-region #t))
 	      (%trace ";   redraw finished\n")
-	      (fluid-let ((ignore-change-region #t))
-		(if (display-style/discard-screen-contents? display-style)
-		    (gtk-widget-queue-draw widget))
-		(gdk-window-process-updates (fix-layout-window widget) #f))
+	      (update-window widget)
+	      (if (display-style/discard-screen-contents? display-style)
+		  (gtk-widget-queue-draw widget))
+	      (gdk-window-process-updates (fix-layout-window widget) #f)
 	      #t)
 	    (begin
 	      (%trace ";   redraw aborted\n")