gitk: Do not pick up file names of "copy from" lines

diff --git a/gitk b/gitk
index 46673e3b9c48439c6213b9ba56730748999e03b2..516e14a8fc25a5688bd6b2f5d8defe0075681f34 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -5221,8 +5221,7 @@ proc getblobdiffline {bdf ids} {
            set diffinhdr 0
 
        } elseif {$diffinhdr} {
-           if {![string compare -length 12 "rename from " $line] ||
-               ![string compare -length 10 "copy from " $line]} {
+           if {![string compare -length 12 "rename from " $line]} {
                set fname [string range $line [expr 6 + [string first " from " $line] ] end]
                if {[string index $fname 0] eq "\""} {
                    set fname [lindex $fname 0]