From: Matt Birkholz Date: Wed, 14 Sep 2011 20:08:43 +0000 (-0700) Subject: Update-modeline after scrolling. X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~107 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e9e4f679fba737e56078127e6b4ed1c7996ce0b7;p=mit-scheme.git Update-modeline after scrolling. --- 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-