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 545fe9a38717986ae36967b3c65df5672564e0d6..481ebf428019073fc5696b398785f7f40d74b2e6 100644 (file)
--- 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")