gitk: Fix bug where page-up/down wouldn't always work properly

[git.git] / gitk

diff --git a/gitk b/gitk
index d59debf..286f5cd 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -3429,6 +3429,7 @@ proc selnextpage {dir} {
        set lpp 1
     }
     allcanvs yview scroll [expr {$dir * $lpp}] units
+    drawvisible
     if {![info exists selectedline]} return
     set l [expr {$selectedline + $dir * $lpp}]
     if {$l < 0} {