1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
|
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
|
-
-
+
+
|
if {$::dirdiff(leftDir) eq $::dirdiff(rightDir)} {
set fullname $::dirdiff(leftDir)
set type [detectRevSystem $fullname]
# Is this a revision system with dirdiff support?
if {[info commands eskil::rev::${type}::mount] ne ""} {
# No -r given; fall back on current.
# Note: Only fossil/svn/git supports 0 for current currently
if {[llength $revs] == 0} {set revs 0}
# All vcs with dirdiff support should know that _ means current
if {[llength $revs] == 0} {set revs _}
set revs [eskil::rev::${type}::ParseRevs $fullname $revs]
set rev1 [lindex $revs 0]
set rev2 [lindex $revs 1]
# A little "splash-screen" to show progress
destroy .dirdiffX
toplevel .dirdiffX
|