gitk: Limit how often we change the canvas scrolling region

diff --git a/gitk b/gitk
index d6ed4f6c4050b3a4f0db462d531f6e7a161c1bfb..d5b71dd45dd2aa03050074c086d355a87fb76efb 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -2616,6 +2616,7 @@ proc layoutmore {tmax allread} {
 proc showstuff {canshow last} {
     global numcommits commitrow pending_select selectedline curview
     global lookingforhead mainheadid displayorder nullid selectfirst
+    global lastscrollset
 
     if {$numcommits == 0} {
        global phase
@@ -2623,8 +2624,13 @@ proc showstuff {canshow last} {
        allcanvs delete all
     }
     set r0 $numcommits
+    set prev $numcommits
     set numcommits $canshow
-    setcanvscroll
+    set t [clock clicks -milliseconds]
+    if {$prev < 100 || $last || $t - $lastscrollset > 500} {
+       set lastscrollset $t
+       setcanvscroll
+    }
     set rows [visiblerows]
     set r1 [lindex $rows 1]
     if {$r1 >= $canshow} {