Show More
@@ -1181,7 +1181,6 b' proc gettreediffline {gdtf 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 | |||
@@ -1221,7 +1220,7 b' proc getblobdiffline {bdf id} {' | |||||
1221 | return |
|
1220 | return | |
1222 | } |
|
1221 | } | |
1223 | $ctext conf -state normal |
|
1222 | $ctext conf -state normal | |
1224 |
if {[regexp {^---[ \t]+([^/])*/( |
|
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 |
General Comments 0
You need to be logged in to leave comments.
Login now