X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=gitk;h=ab383b3ad29cea5c7c45a8f757941acbc3abaf33;hb=9b8dc263e1b0d470cc67a824837d8884ae3e7136;hp=ebbeac63aaac66c3ffef53c1d66836c11d22ddbf;hpb=7bbf88c52b202d543310123e1bad9a44b2d6f028;p=git.git

diff --git a/gitk b/gitk
index ebbeac63a..ab383b3ad 100755
--- a/gitk
+++ b/gitk
@@ -4440,12 +4440,27 @@ proc getblobdiffline {bdf ids} {
     }
 }
 
+proc prevfile {} {
+    global difffilestart ctext
+    set prev [lindex $difffilestart 0]
+    set here [$ctext index @0,0]
+    foreach loc $difffilestart {
+	if {[$ctext compare $loc >= $here]} {
+	    $ctext yview $prev
+	    return
+	}
+	set prev $loc
+    }
+    $ctext yview $prev
+}
+
 proc nextfile {} {
     global difffilestart ctext
     set here [$ctext index @0,0]
     foreach loc $difffilestart {
 	if {[$ctext compare $loc > $here]} {
 	    $ctext yview $loc
+	    return
 	}
     }
 }