Skip to content

Commit

Permalink
gitk: Fix two bugs reported by users
Browse files Browse the repository at this point in the history
The first was a simple typo where I put $yc instead of [yc $row].
The second was that I broke the logic for keeping up with fast
movement through the commits, e.g. when you select a commit and then
press down-arrow and let it autorepeat.  That got broken when I
changed the merge diff display to use git-diff-tree --cc.

Signed-off-by: Paul Mackerras <paulus@samba.org>
  • Loading branch information
Paul Mackerras committed Mar 21, 2006
1 parent eb447a1 commit 7a1d9d1
Showing 1 changed file with 11 additions and 11 deletions.
22 changes: 11 additions & 11 deletions gitk
Original file line number Diff line number Diff line change
Expand Up @@ -1267,9 +1267,9 @@ proc drawlineseg {id i} {
set x [xc $row $ccol]
set y [yc $row]
if {$ccol < $col - 1} {
lappend coords [xc $row [expr {$col - 1}]] $yc
lappend coords [xc $row [expr {$col - 1}]] [yc $row]
} elseif {$ccol > $col + 1} {
lappend coords [xc $row [expr {$col + 1}]] $yc
lappend coords [xc $row [expr {$col + 1}]] [yc $row]
}
lappend coords $x $y
}
Expand Down Expand Up @@ -2451,9 +2451,10 @@ proc goforw {} {

proc mergediff {id} {
global parents diffmergeid diffopts mdifffd
global difffilestart
global difffilestart diffids

set diffmergeid $id
set diffids $id
catch {unset difffilestart}
# this doesn't seem to actually affect anything...
set env(GIT_DIFF_OPTS) $diffopts
Expand All @@ -2470,7 +2471,7 @@ proc mergediff {id} {

proc getmergediffline {mdf id} {
global diffmergeid ctext cflist nextupdate nparents mergemax
global difffilestart
global difffilestart mdifffd

set n [gets $mdf line]
if {$n < 0} {
Expand All @@ -2479,7 +2480,8 @@ proc getmergediffline {mdf id} {
}
return
}
if {![info exists diffmergeid] || $id != $diffmergeid} {
if {![info exists diffmergeid] || $id != $diffmergeid
|| $mdf != $mdifffd($id)} {
return
}
$ctext conf -state normal
Expand Down Expand Up @@ -2589,13 +2591,11 @@ proc gettreediffline {gdtf ids} {
set treediffs($ids) $treediff
unset treepending
if {$ids != $diffids} {
gettreediffs $diffids
} else {
if {[info exists diffmergeid]} {
contmergediff $ids
} else {
addtocflist $ids
if {![info exists diffmergeid]} {
gettreediffs $diffids
}
} else {
addtocflist $ids
}
return
}
Expand Down

0 comments on commit 7a1d9d1

Please sign in to comment.