Mercurial > hg > gitweb

comparison contrib/hgk @ 283:18c9566ad717

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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