From e9e4f679fba737e56078127e6b4ed1c7996ce0b7 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 14 Sep 2011 13:08:43 -0700 Subject: [PATCH] Update-modeline after scrolling. --- src/gtk-screen/gtk-screen.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm index 49ed4b794..663639725 100644 --- 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- -- 2.25.1