From e72ee5ebc8de90ad6de8f9318f75ebd45b2ca001 Mon Sep 17 00:00:00 2001
From: Paul Mackerras <paulus@samba.org>
Date: Sat, 20 May 2006 09:58:49 +1000
Subject: [PATCH] gitk: Fix bug where page-up/down wouldn't always work
 properly

If the user pressed page up or page down and the new page wasn't
already drawn, we failed to select the line we wanted in the new
page.  This fixes it.

Signed-off-by: Paul Mackerras <paulus@samba.org>
---
 gitk | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gitk b/gitk
index d59debf2f..286f5cd5f 100755
--- 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} {
-- 
2.30.2