Update-modeline after scrolling.

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 49ed4b79421d8a93cdbc0eb47492b97468f4ea62..6636397251fc86a4c9e8f632778a858c889ca739 100644 (file)
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -1518,7 +1518,6 @@ USA.
 (define (update-window widget)
   (%trace ";     update-window "widget"\n")
   (let ((window (text-widget-buffer-frame widget)))
-    (update-modeline widget)
     (let ((message (window-override-message window))
          (drawing (fix-layout-drawing widget)) ; current drawing: either...
          (override (text-widget-override-drawing widget)) ; this...
@@ -1555,7 +1554,8 @@ USA.
            (let ((extent (fix-ink-extent (text-widget-cursor-ink widget))))
              (%trace ";\tscrolling to "extent"\n")
              (fix-layout-scroll-nw! widget extent)
-             (%trace ";\tview: "(fix-layout-view widget)"\n")))))))
+             (%trace ";\tview: "(fix-layout-view widget)"\n"))
+           (update-modeline widget))))))
 
 ;; This variable caches a modeline image buffer.  A modeline update
 ;; hacks this buffer, then compares it to the string in the simple-