}
proc parsecommit {id contents listed} {
- global commitinfo cdate
+ global commitinfo
set inhdr 1
set comment {}
}
set comment $newcomment
}
- if {$comdate != {}} {
- set cdate($id) $comdate
- }
set commitinfo($id) [list $headline $auname $audate \
$comname $comdate $comment]
}