contrib/hgk
changeset 4750 4a84f7421692
parent 4749 e1d1b22bab57
child 4968 713426631adf
equal deleted inserted replaced
4749:e1d1b22bab57 4750:4a84f7421692
  2817 		addtocflist $ids
  2817 		addtocflist $ids
  2818 	    }
  2818 	    }
  2819 	}
  2819 	}
  2820 	return
  2820 	return
  2821     }
  2821     }
  2822     set file [lindex $line 5]
  2822     set tab1 [expr [string first "\t" $line] + 1]
       
  2823     set tab2 [expr [string first "\t" $line $tab1] - 1]
       
  2824     set file [string range $line $tab1 $tab2]
  2823     lappend treediff $file
  2825     lappend treediff $file
  2824 }
  2826 }
  2825 
  2827 
  2826 proc getblobdiffs {ids} {
  2828 proc getblobdiffs {ids} {
  2827     global diffopts blobdifffd diffids env curdifftag curtagstart
  2829     global diffopts blobdifffd diffids env curdifftag curtagstart