923
924
925
926
927
928
929
930
931
932
933
934
935
936
|
if {$rmode == "+"} {
insertLine $top 2 $rline $rstr new2
emptyLine $top 1
incr rightc
addMapLines $top 1
continue
}
}
}
# Read a patch file and display it
proc displayPatch {top} {
global Pref
|
>
>
>
>
>
>
>
>
|
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
|
if {$rmode == "+"} {
insertLine $top 2 $rline $rstr new2
emptyLine $top 1
incr rightc
addMapLines $top 1
continue
}
}
# If the patch ended with a change block, display it.
if {[llength $lblock] > 0 || [llength $rblock] > 0} {
set ::doingLine1 $lblockl
set ::doingLine2 $rblockl
addMapLines $top [insertMatchingBlocks $top $lblock $rblock]
set lblock {}
set rblock {}
}
}
# Read a patch file and display it
proc displayPatch {top} {
global Pref
|