summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 6459d7c)
raw | patch | inline | side by side (parent: 6459d7c)
author | Bert Wesarg <bert.wesarg@googlemail.com> | |
Thu, 9 Dec 2010 20:47:58 +0000 (21:47 +0100) | ||
committer | Pat Thoyts <patthoyts@users.sourceforge.net> | |
Fri, 28 Jan 2011 09:01:17 +0000 (09:01 +0000) |
These two also stop the diff header.
Signed-off-by: Bert Wesarg <bert.wesarg@googlemail.com>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
Signed-off-by: Bert Wesarg <bert.wesarg@googlemail.com>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
lib/diff.tcl | patch | blob | history |
diff --git a/lib/diff.tcl b/lib/diff.tcl
index 91ed7c638c507421cdfc87ad923c6787d79d31a9..4eaf7e7aa21d4b867ef42ce29b387d93e238c4d8 100644 (file)
--- a/lib/diff.tcl
+++ b/lib/diff.tcl
if {[string match {@@@ *} $line]} {set is_3way_diff 1}
if {$::current_diff_inheader} {
- append current_diff_header $line "\n"
+
+ # -- These two lines stop a diff header and shouldn't be in there
+ if { [string match {Binary files * and * differ} $line]
+ || [regexp {^\* Unmerged path } $line]} {
+ set ::current_diff_inheader 0
+ } else {
+ append current_diff_header $line "\n"
+ }
# -- Cleanup uninteresting diff header lines.
#
regsub {^(deleted|new) file mode 120000} $line {\1 symlink} line
}
-
-
if {[string match {new file *} $line]
|| [regexp {^(old|new) mode *} $line]
|| [string match {deleted file *} $line]
|| [string match {deleted symlink} $line]
|| [string match {new symlink} $line]
- || [string match {Binary files * and * differ} $line]
- || $line eq {\ No newline at end of file}
- || [regexp {^\* Unmerged path } $line]} {
+ || $line eq {\ No newline at end of file}} {
} elseif {$is_3way_diff} {
set op [string range $line 0 1]
switch -- $op {