contrib/hgk

273:4f8174389001

	unset treepending
	addtocflist $id
	return
    }
    set file [lindex $line 5]
    puts stderr "line $file\n"
    lappend treediffs($id) $file
}

proc getblobdiffs {id} {
    global parents diffopts blobdifffd env curdifftag curtagstart

    }
    if {$id != $currentid || $bdf != $blobdifffd($id)} {
	return
    }
    $ctext conf -state normal
    if {[regexp {^---[ \t]+([^/])*/(.*)} $line match s1 fname]} {
	# start of a new file
	$ctext insert end "\n"
	$ctext tag add $curdifftag $curtagstart end
	set seenfile($curdifftag) 1
	set curtagstart [$ctext index "end - 1c"]

274:5da941efbb52

	unset treepending
	addtocflist $id
	return
    }
    set file [lindex $line 5]
    lappend treediffs($id) $file
}

proc getblobdiffs {id} {
    global parents diffopts blobdifffd env curdifftag curtagstart

    }
    if {$id != $currentid || $bdf != $blobdifffd($id)} {
	return
    }
    $ctext conf -state normal
    if {[regexp {^---[ \t]+([^/])*/([^\t]*)} $line match s0 fname]} {
	# start of a new file
	$ctext insert end "\n"
	$ctext tag add $curdifftag $curtagstart end
	set seenfile($curdifftag) 1
	set curtagstart [$ctext index "end - 1c"]