Eskil

Check-in [7d9d5a8105]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed a bug in patch view. A change last in patch was missed.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7d9d5a8105be65aed87e8cbca1309df6d979bcdf
User & Date: peter 2008-02-06 17:32:36.000
Context
2008-02-07
19:47
Added text on Subversion and Git. check-in: bf14ee8cda user: peter tags: trunk
2008-02-06
17:32
Fixed a bug in patch view. A change last in patch was missed. check-in: 7d9d5a8105 user: peter tags: trunk
2008-02-04
18:34
Lots of ttk adaptions. check-in: e8f803eb57 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Changes. 



1
2
3
4
5
6
7




2008-01-23
 Added Subversion support.
 Added -cvs and -svn for selecting version detection preference.

2008-01-18
 Adjust to use Tile overall.
 Adjustments to new dirdiff processing.

>
>
>








1
2
3
4
5
6
7
8
9
10

2008-02-06
 Fixed a bug in patch view. A change last in patch was missed.

2008-01-23
 Added Subversion support.
 Added -cvs and -svn for selecting version detection preference.

2008-01-18
 Adjust to use Tile overall.
 Adjustments to new dirdiff processing.
︙︙
Changes to src/eskil.tcl.
︙︙
923
924
925
926
927
928
929








930
931
932
933
934
935
936

        if {$rmode == "+"} {
            insertLine $top 2 $rline $rstr new2
            emptyLine $top 1
            incr rightc
            addMapLines $top 1
            continue
        }








    }
}

# Read a patch file and display it
proc displayPatch {top} {
    global Pref









>
>
>
>
>
>
>
>








923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944

        if {$rmode == "+"} {
            insertLine $top 2 $rline $rstr new2
            emptyLine $top 1
            incr rightc
            addMapLines $top 1
            continue
        }
    }
    # If the patch ended with a change block, display it.
    if {[llength $lblock] > 0 || [llength $rblock] > 0} {
        set ::doingLine1 $lblockl
        set ::doingLine2 $rblockl
        addMapLines $top [insertMatchingBlocks $top $lblock $rblock]
        set lblock {}
        set rblock {}
    }
}

# Read a patch file and display it
proc displayPatch {top} {
    global Pref
︙︙