contrib/hgk
changeset 274 5da941efbb52
parent 267 497aa6d276d2
child 280 a69c3b2957d1
--- a/contrib/hgk	Tue Jun 07 19:00:56 2005 -0800
+++ b/contrib/hgk	Tue Jun 07 19:02:31 2005 -0800
@@ -1181,7 +1181,6 @@
 	return
     }
     set file [lindex $line 5]
-    puts stderr "line $file\n"
     lappend treediffs($id) $file
 }
 
@@ -1221,7 +1220,7 @@
 	return
     }
     $ctext conf -state normal
-    if {[regexp {^---[ \t]+([^/])*/(.*)} $line match s1 fname]} {
+    if {[regexp {^---[ \t]+([^/])*/([^\t]*)} $line match s0 fname]} {
 	# start of a new file
 	$ctext insert end "\n"
 	$ctext tag add $curdifftag $curtagstart end