diff --git a/lib/blame.tcl b/lib/blame.tcl
index 0666dcadc19361bcc981f4385c9138a6f3525499..a01e22385baf8a8fed99f104251772f77ef35648 100644 (file)
--- a/lib/blame.tcl
+++ b/lib/blame.tcl
field total_lines 0 ; # total length of file
field blame_lines 0 ; # number of lines computed
-field commit_count 0 ; # number of commits in $commit_list
-field commit_list {} ; # list of commit sha1 in receipt order
+field commit_count 0 ; # number of commits loaded
field order ; # array commit -> receipt order
field header ; # array commit,key -> header field
field line_commit ; # array line -> sha1 commit
set total_lines 0
set blame_lines 0
set commit_count 0
- set commit_list {}
array unset order
array unset line_commit
array unset line_file
set order($cmit) $commit_count
incr commit_count
- lappend commit_list $cmit
}
} elseif {[string match {filename *} $line]} {
set file [string range $line 9 end]