From a4f2544ef160f3b1129e168a9e70c0833dca0dd8 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 7 Sep 2011 12:30:26 -0700 Subject: [PATCH] Put update-window inside ignore-change-region. This helps update-modeline, which needs to know the current location of buffer lines. --- src/gtk-screen/gtk-screen.scm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) 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") -- 2.25.1