hgk: do not ignore ---/+++ lines in diff stable
authorFabian Kreutz <project+hg@fabian-kreutz.de>
Wed, 02 Dec 2009 14:30:39 +0200
branchstable
changeset 9989 60cefb8b3c85
parent 9987 ed290e503b8a
child 9992 e97dd3a8e8d7
child 9993 8bce1e0d2801
hgk: do not ignore ---/+++ lines in diff
contrib/hgk
--- a/contrib/hgk	Tue Dec 01 19:30:49 2009 -0600
+++ b/contrib/hgk	Wed Dec 02 14:30:39 2009 +0200
@@ -3154,8 +3154,8 @@
 	set pad [string range "----------------------------------------" 1 $l]
 	$ctext insert end "$pad $header $pad\n" filesep
 	set diffinhdr 1
-    } elseif {[regexp {^(---|\+\+\+)} $line]} {
-	set diffinhdr 0
+    } elseif {[regexp {^(---|\+\+\+) } $line] && $diffinhdr} {
+	set diffinhdr 1
     } elseif {[regexp {^@@ -([0-9]+),([0-9]+) \+([0-9]+),([0-9]+) @@(.*)} \
 		   $line match f1l f1c f2l f2c rest]} {
 	if {$gaudydiff} {