Mercurial > hg > mercurial-crew-with-dirclash
comparison contrib/hgk @ 283:18c9566ad717
minor hgk fixes
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
minor hgk fixes
From: Chris Mason <mason@suse.com>
hgk was missing the last commit when reading the output from hgit rev-list -c
Some how a debugging puts snuck into the hgk I sent out. Remove it:
manifest hash: cc0ec1d46fbbe9b7e9bf6404f9dbe2ec787811ba
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.0 (GNU/Linux)
iD8DBQFCp13mywK+sNU5EO8RAnkqAJ49W/i1mwt38Yws4t0mEQeKttsOSQCgi9fS
/t42Uy0Qj9yeVppGPLel/bI=
=eIrI
-----END PGP SIGNATURE-----
author | mpm@selenic.com |
---|---|
date | Wed, 08 Jun 2005 13:06:46 -0800 |
parents | a69c3b2957d1 |
children | cc756ffd4d04 |
comparison
equal
deleted
inserted
replaced
282:97d83e7fbf2f | 283:18c9566ad717 |
---|---|
137 if {$n < 0} { | 137 if {$n < 0} { |
138 if {![eof $commfd]} return | 138 if {![eof $commfd]} return |
139 # this works around what is apparently a bug in Tcl... | 139 # this works around what is apparently a bug in Tcl... |
140 fconfigure $commfd -blocking 1 | 140 fconfigure $commfd -blocking 1 |
141 if {![catch {close $commfd} err]} { | 141 if {![catch {close $commfd} err]} { |
142 if {$allcommitstate == "indent"} { | |
143 readonecommit $curcommitid $curcommit | |
144 } | |
142 after idle drawgraph | 145 after idle drawgraph |
143 return | 146 return |
144 } | 147 } |
145 if {[string range $err 0 4] == "usage"} { | 148 if {[string range $err 0 4] == "usage"} { |
146 set err "\ | 149 set err "\ |
1162 proc gettreediffs {id} { | 1165 proc gettreediffs {id} { |
1163 global treediffs parents treepending | 1166 global treediffs parents treepending |
1164 set treepending $id | 1167 set treepending $id |
1165 set treediffs($id) {} | 1168 set treediffs($id) {} |
1166 set p [lindex $parents($id) 0] | 1169 set p [lindex $parents($id) 0] |
1167 puts stderr "hgit diff-tree -r $p $id" | |
1168 if [catch {set gdtf [open "|hgit diff-tree -r $p $id" r]}] return | 1170 if [catch {set gdtf [open "|hgit diff-tree -r $p $id" r]}] return |
1169 fconfigure $gdtf -blocking 0 | 1171 fconfigure $gdtf -blocking 0 |
1170 fileevent $gdtf readable "gettreediffline $gdtf $id" | 1172 fileevent $gdtf readable "gettreediffline $gdtf $id" |
1171 } | 1173 } |
1172 | 1174 |