1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
|
lappend ::eskil($top,cleanup) "rev"
} elseif {$::eskil($top,mode) eq "conflict"} {
prepareConflict $top
lappend ::eskil($top,cleanup) "conflict"
}
# Prepare Separator
set ::eskil($top,separator) \
[subst -nocommand -novariable $::eskil($top,separatorview)]
# Autodetect separator before any plugin processing
if {$::eskil($top,view) eq "table" && $::eskil($top,separator) eq ""} {
set ch1 [open $::eskil($top,leftFile)]
gets $ch1 line1
close $ch1
# Any tab, comma or semicolon?
if {[regsub -all "\t" $line1 "\t" _] >= 2} {
|
|
|
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
|
lappend ::eskil($top,cleanup) "rev"
} elseif {$::eskil($top,mode) eq "conflict"} {
prepareConflict $top
lappend ::eskil($top,cleanup) "conflict"
}
# Prepare Separator
set ::eskil($top,separator) \
[subst -nocommands -novariables $::eskil($top,separatorview)]
# Autodetect separator before any plugin processing
if {$::eskil($top,view) eq "table" && $::eskil($top,separator) eq ""} {
set ch1 [open $::eskil($top,leftFile)]
gets $ch1 line1
close $ch1
# Any tab, comma or semicolon?
if {[regsub -all "\t" $line1 "\t" _] >= 2} {
|