Eskil

Check-in [58a58bc4e3]
Login

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

Overview
Comment:Fixed error printing patch with only deleted or inserted files.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 58a58bc4e3ed4e350881bb84927810f97ba905bd
User & Date: peter 2013-09-26 17:04:42.171
Context
2013-09-26
17:07
Fixed error printing patch with only deleted or inserted files. [2d89cee14d] check-in: 5d26e3e66c user: peter tags: trunk
17:04
Fixed error printing patch with only deleted or inserted files. check-in: 58a58bc4e3 user: peter tags: trunk
2013-09-23
00:08
Changes for 2.6.4 listed check-in: 812fc2426e user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/print.tcl.
︙︙
94
95
96
97
98
99
100




101
102
103
104
105
106
107

    }
    return $text
}

# Find the lastnumber in a text widget
proc FindLastNumber {w} {
    set index [$w search -backwards -regexp {\d} end]




    set line [$w get "$index linestart" "$index lineend"]
    #puts "X '$line' '$index'"
    regexp {\d+} $line number
    return $number
}

# Main print function








>
>
>
>








94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111

    }
    return $text
}

# Find the lastnumber in a text widget
proc FindLastNumber {w} {
    set index [$w search -backwards -regexp {\d} end]
    if {$index eq ""} {
        # There where no numbers there, treat it like 0
        return 0
    }
    set line [$w get "$index linestart" "$index lineend"]
    #puts "X '$line' '$index'"
    regexp {\d+} $line number
    return $number
}

# Main print function
︙︙