Show More
| @@ -139,6 +139,9 b' proc getallcommitline {commfd} {' | |||||
| 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 | } | |
| @@ -1164,7 +1167,6 b' proc gettreediffs {id} {' | |||||
| 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" | |
General Comments 0
You need to be logged in to leave comments.
Login now