summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: c8a4acb)
raw | patch | inline | side by side (parent: c8a4acb)
author | Paul Mackerras <paulus@dorrigo.(none)> | |
Sun, 31 Jul 2005 11:35:21 +0000 (21:35 +1000) | ||
committer | Paul Mackerras <paulus@dorrigo.(none)> | |
Sun, 31 Jul 2005 11:35:21 +0000 (21:35 +1000) |
Specifically this should fix the following errors:
wrong # args: should be "startdiff ids" (fix from Junio Hamano)
can't read "filelines(....)": no such element in array
can't unset "treepending": no such variable
wrong # args: should be "startdiff ids" (fix from Junio Hamano)
can't read "filelines(....)": no such element in array
can't unset "treepending": no such variable
gitk | patch | blob | history |
index 2aa970d5cffea4bea0e3f8f1a100f68b53e5a7af..efdb0a7f613d9f8715d32bf6545ed656ef4f1f1b 100755 (executable)
--- a/gitk
+++ b/gitk
set diffpindex -1
set diffmergegca [findgca $parents($id)]
if {[info exists mergefilelist($id)]} {
- showmergediff
+ if {$mergefilelist($id) ne {}} {
+ showmergediff
+ }
} else {
contmergediff {}
}
proc contmergediff {ids} {
global diffmergeid diffpindex parents nparents diffmergegca
- global treediffs mergefilelist diffids
+ global treediffs mergefilelist diffids treepending
# diff the child against each of the parents, and diff
# each of the parents against the GCA.
proc showmergediff {} {
global cflist diffmergeid mergefilelist parents
- global diffopts diffinhunk currentfile diffblocked
- global groupfilelast mergefds
+ global diffopts diffinhunk currentfile currenthunk filelines
+ global diffblocked groupfilelast mergefds groupfilenum grouphunks
set files $mergefilelist($diffmergeid)
foreach f $files {
catch {unset currentfile}
catch {unset currenthunk}
catch {unset filelines}
+ catch {unset groupfilenum}
+ catch {unset grouphunks}
set groupfilelast -1
foreach p $parents($diffmergeid) {
set cmd [list | git-diff-tree -p $p $diffmergeid]
$ctext conf -state disabled
$ctext tag delete Comments
$ctext tag remove found 1.0 end
- startdiff $newid [list $oldid]
+ startdiff [list $newid $oldid]
}
proc mkpatch {} {