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

diff --git a/gitk b/gitk
index d59debf2f5bb8907cd77fb63f70aa59d6e856602..286f5cd5fd11a40a3f1013b4320acd73120dc561 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} {