equal
deleted
inserted
replaced
1179 unset treepending |
1179 unset treepending |
1180 addtocflist $id |
1180 addtocflist $id |
1181 return |
1181 return |
1182 } |
1182 } |
1183 set file [lindex $line 5] |
1183 set file [lindex $line 5] |
1184 puts stderr "line $file\n" |
|
1185 lappend treediffs($id) $file |
1184 lappend treediffs($id) $file |
1186 } |
1185 } |
1187 |
1186 |
1188 proc getblobdiffs {id} { |
1187 proc getblobdiffs {id} { |
1189 global parents diffopts blobdifffd env curdifftag curtagstart |
1188 global parents diffopts blobdifffd env curdifftag curtagstart |
1219 } |
1218 } |
1220 if {$id != $currentid || $bdf != $blobdifffd($id)} { |
1219 if {$id != $currentid || $bdf != $blobdifffd($id)} { |
1221 return |
1220 return |
1222 } |
1221 } |
1223 $ctext conf -state normal |
1222 $ctext conf -state normal |
1224 if {[regexp {^---[ \t]+([^/])*/(.*)} $line match s1 fname]} { |
1223 if {[regexp {^---[ \t]+([^/])*/([^\t]*)} $line match s0 fname]} { |
1225 # start of a new file |
1224 # start of a new file |
1226 $ctext insert end "\n" |
1225 $ctext insert end "\n" |
1227 $ctext tag add $curdifftag $curtagstart end |
1226 $ctext tag add $curdifftag $curtagstart end |
1228 set seenfile($curdifftag) 1 |
1227 set seenfile($curdifftag) 1 |
1229 set curtagstart [$ctext index "end - 1c"] |
1228 set curtagstart [$ctext index "end - 1c"] |